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SECTION 1 
INTRODUCTION 


The Hot Section Technology (HOST) Dynamic Gas Temperature Measurement System 
Computer Program acquires data from two Type B thermocouples of different diameters. The 
analysis method then determines the insitu value of an aerodynamic parameter T, containing 
the heat transfer coefficient from the transfer function of the two thermocouples. This 
aerodynamic parameter is then used to compute a frequency response spectrum and compensate 
the dynamic portion of the signal of the smaller thermocouple. Detailed discussions of the 
calculations for the aerodynamic parameter and the data compensation technique are presented 
in Section III.C. of Volume I. Compensated data is presented in either the time or frequency 
domain. Time domain data are presented as dynamic temperature vs time (compensated or 
uncompensated). Frequency domain data are presented per the table below (compensated or 
uncompensated): 


Function 

Dimensions 

Engineering Unitt 

* Power Spectral Density (PSD) 

.dean Square/Hz 

"FVHz (KTHz) 

* Log Power Spectral Density 
- 10 log 10 PSD 

Mean Square/Hz 

db ref 1‘FVH* (0.309K7H*) 

• Linear Power Spectral Density 

- Positive Square Root of PSD 

rms/y^Hi 

•F/yifa (O-fiMK/yHi) 

• Narrowband Frequency Spectrum 

• Positive square root of autospectral density 
(autopower) function with narrowband signal 
correction for FFT windowing function applied 
and no normalization to per unit bandwidth 

rms 

•F (K) 


The data analysis and compensation software was implemented on a digital computer 
based Hewlett Packard (HP) model 5451C Fourier Analyzer system. This manual contains the 
computer program listings, software operating instructions and computer hardware require- 
ments. Extensive use was made of the HP system operating software package. For convenience, 
English units were used exclusively throughout the software. 
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The HOST System is built around a HEWLETT-PACKARD 5451C FOURIER 
ANALYZER with 64K wprds of ft»e*orw« The hardware required to 
run the system is listed in the table below* 


DESCRIPTION 

PART NO. 


21MX E-Series Computer 

54451 A 


System Control 

54.77A 


Display Unit 

5460A 


Analog to Dibits] Converter 

5466B 

(1) 

Control Unit 

5475A 


Low Pass Filter (A each) 

54440A 


I/O Extender 

12979B 


Digital Tape Unit 

7970E 


Disc Drive 

7900A 

(2) 

Disc Power Supply 

13215A 


Graphics Terminal 

2648A 


Video Hard Cops Unit 

4632 

< 3 ) 

Signature Analysis Control Panel 
(1) 4 Channel Option ii> required* 


• 


<2) This disc drive has been undated to 7906* 

(3) Hard cops ur» i t i.' m nufactured by Tektronix* 


The software fur this swstem is based on the HEWLETT-PACKARD 
software supplied with the 5451C FOURIER SYSTEM* All functions 
in the standard Fourier* System are maintained? boat-up and opera- 
tion instructions are per the system manual* However additional 
software bva been added to drive the HOST System* 

This juj is divided into two sections* 


o SYSTEM DFERATION - This section explains Slow to operate the HOST 

System Software* 

■« SYSTEM SOFTWARE - This suction provides a complete listing of 

HOST System Software* and the Command Files 
used to generate the HOST System Overlays* 


PRECEDING EAGE BLANK NOT FILMED 
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SECTION 1 - SYSTEM OPERATION 

System operation is divided into 3 parts* these are* 

o Theoretical TRANSFER FUNCTION of the large wire thermocouple 
to the small wire the rmocouple ♦ 

o Measured TRANSFER FUNCTION of the large wire thermocouple to 
the small wire thermocouple* 

o Data processing arid plotting* 

The abbreviation 'H(f)" wi ** 1 be used in place of the words 
'TRANSFER FUNCTION* whe er that process is implied* 

Bus tern input is avc-.jmpl ished by setting SYSTEM EDITS* During 
each part of system operation* a series of Questions per- 
taining to that part of system operation is ashed by the system 
to ! he user* Operation is then done per these edits* 



ORIGINAL PAGE IS 

* *0°* quality 


1.0 THEORETICAL H(f) OF THE LARGE WIRE THERMOCOUPLE TO THE 
SMALL WIRE THERMOCOUPLE. 

This part consisis of 4 phases? these are# 
o Inputting thermocouple wire and gas stream parameters# 
o Storing this data on the system disc# 

o Generating a family of curves? from #5 to 1#5 GAMMA? of 
the thermocouple wire vs* the gas stream? both large 
wire and snail wire* 

0 Dividing the two families (large wire/small wire) to 
obtain a thi s rd -...family of curves# 

: . , • • * '■ {V ' 

1 , X Themiocuufle wire and gas stream parameter input is 
accomplished by setting SYSTEM EDITS. To access the 
edits fui this part of the system, tress RESTART. EDIT. 
AUTO-SEQ and YES on the SYSTEM CONTROL panel. A cops 
cf these adits appears on the next page. Although the 
edits ate self explanatory » edit no. 25 needs further 
clarification. This edit sets the freuuency code for 
the family of curves about to be generated. It also 
sots the following system constraints* 

o Only 4 dclta-f settings are allowed. These are *2. .5. 

* ... » e> 

x t 8 1 1 u *:. * 

o Only -1 f and 0 mas be entered for powers of 10# That is? 
when the delta-f setting is *2 or *5? then a -1 must be 
entered for the power of 10# When trie d © 1 1 a — f s © 1 1 i n g i s 
I o ■ 2- than c: 0 must be entered* 

o Edit no* 28 must be an integer multiple that is greater 
then ur eoual edit no* 215 

FAILURE TO OBSERVE THESE CONSTRAINTS WILL RESULT IN 
ERRONEOUS DATA 1 f ' 

1 * 2 The e c o n d p h a s e c o 1 1 s x s t s a f s t o ring these edits on t h e 

system disc# Program edits are stored in a SET-UP and 
hj* to 1 " 0 set"?.;p » can be stored on the system disc* 
cft©i setting the edits for a particular T / C ? the 
. * t - u p i. s s t o r e d u u nr e s s i n g RESTART? NODE SHIFT a n d 
SAVE on the SYSTEM CONTROL panel* The system will 
what .number to vn.;v© the ; .ct-up into and the on- 
e r a tor © n t © r \. f a n » .} m b e r between 1 a n d 100* The © r o g r a m 
o d i. !, j r n o w .:> a v e d ri n ! d t© » '• i -> r * Two set-urs are re- 
t; u i » © ii f i.» t t h i . t ' a r t of s y •» tern operation ? o n e for l h e 
• • m a 1 1 w i r © T / 2 a n » a 1 1 o t h e r f o r the large w i r e T / C ♦ 
t i nr ] <r>\, n ii t e a b nut set- u >•• •-> ? s c t ** u p s 1 ti iru i 0 o a » 1 
he used fur storage and p iueevs i ng * Set-ups 11 through 
100 can only tu used for storage# 
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DYNAM IC TEMPERATURE MEA3UREMEHI {V j * 24 FUEL TO AIR RATIO <F/A>? 
THEORETICAL H(f) CRITERIA -*'''* ‘ < rtio > Owr 10 > 

2 -2 

PRINT PARAMETER VALUES'? 

" YES * FOR ALL * LINE * -OR SINGLE PRINT THE REST OF THE PARAMETERS? 


11 I/n CODE ( Q--Pt/6%Rh t l=Pt/30%Rh>? 

code: o 


4 

X x 


LENGTH OP SUPPORT WIRE (INCHES)? 
<ien-(t.h> Owr 10> 

75 -3 


13 LENGTH OF SMALLER WIRE (INCHES/2)? 
' l e.isith > Owr 10 > 

2S -3 


DIAMETER OF SUPPORT WIRE (INCHES)? 
•’ dint i <p«r 10'. 

IS -3 


10 DIAMETER OF SMALLER WIRE (INCHES)'? 
< dmtr > <pwc 10: 

295 -5 
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21 MEAN GAS TEMPERATURE (DEG-F)? 
' tern?- > Owr 10> 

1.700 0 


22 MEAN GAS PRESSURE (PSIA>? 
f-ves > Owl 1 0> 

290 0 


• >3 


MACH NUMBER'? 

numb > Owr i 0 :• 

22 31 -4 
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2G THEORETICAL DELTA-F SETTING? 
— < ftttfi > <>wr 10> 

2 0 

26 STARTING FREQUENCY? 

< fr«a > 10> 

10 0 
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« 


27 ENDING FREQUENCY? 
< frea > Owr 10'> 
60 0 


28 FREQUENCY INCREMENT? 

< iner > <f-wr 10> 

2 0 


29 LARGE OR SMALL WIRE T/CT 

( 0=SMALL » 1 *LARGE > 0 

30 EVALUATE (LARGE WIRE /SMALL WIRE) 

T/C H<f>? < 0 = N0 » 1--YES) 0 


ENTER LINE # TO EDIT f NO TO STOP 


\ 
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OP POOR QUALITY 

1.3 the third phase consists of recalling a set-up for the 
large or small wire T/C end generate the transfer func- 
tion of that T/C to the gas stress* This is accomplished 
bw usinsl the FINITE ELEMENT MODEL algorithm developed 
at PtUA* To recall a set-up* press RESTART* MODE SHIFT 
end RECALL on the SYSTEM CONTROL panel* and than enter 
the desired set-up number* The contents of the set-up 
on the disc remain unaltered* Press AUTQ-SEQ to start 
generating the transfer function* Upon completion* the 
system will print ALL DONE! on the terminal* 

1*4 The final phase consists of recalling the remaining set- 
up and generating its transfer function. At this point* 
edit no* 30 should have been set to 1 so that the transfer 
function of the large wire to small wire T/C cart be 
evaluated « 


MEASURED H(f > OF THE LARGE WIRE T/C TO THE SMALL UIRE T/C. 

2.1 The first phase of this part consists of recalling the 
••.ut -up fur the small wire T/C* This must be don# be- 
cause if the set-up for the large wire T/C is in core* 
l.ite system mas generate a compensation spectrum fur 
l.iiai T/C* RESULTING IN ERRONEOUS DATA!! 

2*2 The second phase consists of setting the program edits 
for this part of the program* To access these edits* 
press RESTART* EDIT. MAP TIME and YES. The edits 
will be listed on the terminal* A cops of these edits 
appears on the newt page. Although the edits are self 
explanatory * there are a few points worth mentioning* 

ci The number entered for edit no. 8 must never be less 
than 70 because record no. 70 is the first record where 
i aw time domain data is stored. 


u Amplifier gairu 


entered in VOLTS/VOLT. 


Record levels and DC offsets are entered in VOLTS. 


The last phase of this part consists of acquiring the 
data. Fress MAF TIME on the SYSTEM CONTROL panel 
to enter this phase. The system will acauire data* 
scale it degrees farenheit* remove any DC offset if an 
offset was entered* and store it on the disc. A max- 
imum of 122 records oi data can be acouired. The system 
will evaluate «. transfer function between the large and 
i m a j 1 wire T/C and deter mines if the measured H < f > curve 
i. rosso., any of the theoretical H<f) curves. At this eoini 
one of two things happen* if the measured curve crosses 


fctJO f L' l, 1 Uri J 


rifl l 


< jivfcsi the system will 
‘ uf GAMMA and display the result* 


> !•*?«>•* Ll-i* . IN 

w? u u< i .‘4 1 i q ii *-> . i„ v i i ■ u im b n s e d .> n the m e a & u r e d value 
u i u A M H A * Thi-:. * * i u n t* s *d. i r - k l? v a b o u t 4 0 im 3 n u 1 8 s find the 
. . : !.. m 4 i l L f v i. r 1 1 A L L I* 0 N t* 1 u t on c o mi f 1 e t i o n e If 
tii ».■ &•* e c v, i:ed n.ir v i" d i d not c f o «*> «> any of i h a theoretical' 
t i * »..* n ■ > hi >4 .* : j A • . t, u Lh a l s* f f* \ i s t> i displayed on t b e ter — 

*|i i l\ 6/ 1 ’ U 1 • I C '£> t U r <• 


■ NTINtJR on the CONTROL UNIT to tienerat e the 


DYNAMIC TEMPERATURE MEASUREMENT 
MEASURED H f> CRITERIA 


PRINT THE RE8T OF THE PARAMETERS? 


PRINT PARAMETER VALUES? 

‘YES* FOR ALL * LINE * FOR SINGLE 


OS ADC DELTA-F SETTING? 

stts* > <r«r 10> 

2 0 
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06 ACQUIRE NEW DATA OR RE-PROCESS 

FROM THRU-PUT FILE? <0* NEW DATA* 

I -RE-PROCESS) 1 

*************************************** 

* IF ACQUIRING NEW DATA! 

* 

* 07 NUMBER UP THRU-PUT RECORDS 

* DESIRED? A* 

**************************************** 

* IF DATA IS RE-PROCESSED: 

* 

* ca STARTING RECORD NUMBER? <70i 

* 73* 7A * ETC.) 70 


* 


09 


NUMBER OP POWER SPECTRUM AVQ'S 

RES I RE D v 170 


13 


MEW GAMMA AND NEW COMP. SPEC.? 
(O-NO* 1-YES) 1 


14 


OLD GAMMA BUT NEW COMP - SPEC.? 
< 0-N3 * i»yp:s> 0 


:u GAMMA value: 

•■/ it I u ' <aw( 1 0 '■ 
r»:>84 ~o 
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ENTER LINE » TO EDIT t NO TO 81 OP 


10 CHANNEL V.‘ AMPLIFIER OAIN? 
<pwr 10> 

SO 0 

U CHANNEL * A* RECORD LEVEL? 

< lfcvl > :i»«r 10> 

1 0 

12 CHANNEL * A* DC OFFSET? 

Owr 10> 

0 0 

2(1 CHANNEL *B* AMPLIFIER GAIN? 

< dain > -Owr 10> 

SO 0 

21 CHANNEL *B* RECORD LEVEL? 

< levl > Owr 10> 

1 0 

22 CHANNEL "B* DC OFFSET 

Owr 10> 

0 0 

TO CHANNEL *C* AMPLIFIER GAIN? 
••• Sain '• Owr 1 0> 

50 0 

31 CHANNEL *C' RECORD LEVEL? 

< levl > Owr 10> 

1 0 

32 CHANNEL 'C” DC OFFSET? 
<6ffsct> Owl 10> 

C 0 
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3.0 DATA processing and plotting 
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3.1 Just as before the first phase is to set the edits for 
this rert of suttee operation. Press RESTART. HOME 
SHIFT » EDIT. HAP TIME end YE8 on the 8Y8TEH CONTROL 
panel and the edits sill be listed* Again a cone of 
these edits arrears on the next rede. Unlike the pre- 
vious parts, this one is very deceiving* Greet flex- 
ibility has been built into this pert of the system. 

The following riot presentations ere available* 

u INSTANTANEOUS DATA 

. Small wire compensated or uncompensated, time or free 
. Large wire compensated or uncompensated, time or free 

u AVERAGED DATA 

. Small wire compensated ur uncompensated, free only 
. 1. arsle wire uncompensated, free only 

. '• i :\ .. •; 

,«*. t P<|»qVi*l TIKE and FREQUENCY ranges are available. 

3.2 After sett ini she system edits* cress RESTART. NODE 
SHIFT * and MAP TIME to plot the data. 

This concludes the OPERATION SECTION of this irenuel* 



X 


DYNAMIC TEMPERATURE MEASUREMENT - « 

PROCESSING AND PLOTTING CRITERIA * 31 STARTING TIME? 

* < ti *» > <phv 10 > 

PRTNT PARAMETFR VALUES? * 450 -r3 

* YES* FOR ALL > LINE # FOR 8IN8LE S 

* 32 ENDING TIMET 

10 PI OT UNCOMPENSATED OR COMPENSATED * > Owr 10> 

DATA? ( O-UNCOMP* 1-COMP) 0 * 475 -3 


20 PLOT AVERAGED OR INSTANTANEOUS PRINT THE REST OF THE PARAMETERS 

DATA? ( 0 -AVG t 1-INST) 1 

* IF DATA IS INSTANTANEOUS: 

* 

* 21 STARTING RECORD NO*? 70 

* 

* 22 NO* OF RECORDS? 3 

* 

* 23 THRESHOLD TO CLEAR ON FREQ DA- 

* TA IN *dB*Y -60 

* ORttMAL MQK ft 

* 24 NO* OF * SMOOTHS * TO PERFORM ON OF POOR QUALITY 

t TIME DATA? 0 

* 

* 25 PLOT TIME * FREQ DATA? <0“TIME 

* ONLY ♦ 1 ~T IMF t FREQ) 1 

*** 4 ********; ************************** 

* IF DATA IS AVERAGED: 

* 


* 26 PLOT LARGE UR SMALL WIRE DATA? 

* (U-8MALL* 1-lARGL) 0 

30 PLOT FULL UR PARTIAL TIME RANGE? 

\ 0«FIM L » IMPARTIAL) 1 

****** *;►** ******************* *********** 

* ’f h PARTIAL RANGE If DESIRED: 




IS 


35 MOT FULL OR PARTIAL FREQ RANGE? 
(0=FULL» I -PARTIAL) 

******** ********* ********** ******** 
X If A PARTIAL RANGE IS DESIRED* 

.4 

t 3ft STARTING FREQ? 

* < f r&n > Oyr 10> 

* 0 0 

Sc 

* 3/ ENDING FREQ? 

* < free* > <f*wr 10> 

* 1000 0 

40 ENTER PLOT TODE PER BELOW* (FREQ 
DATA ONLY) 

1 ~ < RMS DE6-F) 

2 (RMS DEG-F ) /SORT -HZ 

3- ( MEAN-SQR DEG-F) /HZ 

4 - -(MEAN-SQR »EG-F)/HZ - OB 

51 TOP LINE HEADER? 

C/0 OF 9 NODE RC OKI'S 

52 BOTTOM LINE HEADER? 

1-8-83 WWR 

ENTER LINE * TO EDIT, NO TO STOP 
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SECTION 2 - This section it divided into five parts listed below* 


o SYSTEM ROUTINES 

1) Keyboard Routines 

2) Fortran Routines 

3) Fortran Subroutines 

4) System Subroutines 

5) Keyboard Subroutines 

6) Text Buffers 

o S .'STEM ARRAYS 

1) Keyboard Program End Codes 

2 ) Data Block Qualifiers 

3) Thermocouple falire and Gas Stream Parameter Equation 
Coefficients 

4) N.B.S. Temperature Equation Coefficients 

0) Input Array 

6 > Thermocouple Wire Parameters 
7> Gas Stream Parameters 

8) Finite Element Coefficients - A»B»C>E>F4G 

9) Finite Element Coefficients - Zi thru Z9 
tO) Finite Element Solution - ZF’(1> thru ZP(9> 

11) Scratch 

o DATA ASSIGNMENTS 

1) Variable Parameter Assignments 

2) File i Record Assignments 

o SYSTEM ALGORITHMS 

1) Thermocouple Wire Parameters 

2) Gas Stream Parameters 

3) Finite Element Solution Coefficients 

4) Finite Element Sollution 

o SYSTEM COMMAND FILFS 
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1*0 SYSTEM ROUTINES - A diadra* showing how these routines are 
broken down and linked together appears below* 


i KEYBOARD 
I ROUTINES 

I 

I 

V 


I 

I 

I I 

I 

V 
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I FORTRAN I >1 TEXT I 

I ROUTINES I I BUFFERS I 

I I I I 

I 

I 

1 

i i I 

i i I 

U V V 


1 FORTRAN i >1 SYSTEM i I KEYBOARD I 

I SUBROUTINES I I SUBROUTINES I I SUBROUTINES I 

i I i I I I 
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1.1 Keyboard Routines 


omQSHAL PW® ® 

of poor QUALrnr 


1 NO. 

1 

DEFINITION 



1 11 

1 

Edit Routine - 

all edits 


1 12 

1 

Finite Element 

solution H(f) Routine 


1 13 

i 

Data Scaling Routine 


i 17 

1 

Instantaneous 

Compensated Data Routine 


1 IS 

i 

Gleet- Routine 



I 20 

i 

Edit Routine - 

all edits 


! 21 

i 

Smoothing routines 


i 22 

t 

Set-up Save Routine 


1 23 

» 

i 

Set-on Recall 

Ruuiine 


1 36 

l 

Graphics routines 


i 35 

I 

Graphics routines 


1 49 

i 

Clear Routine 



1 50 

t 

Power Spectrum 

and Measured H(f) Routine 


i 31 

l 

Data Acouisitun and Transcription Routine 


1 59 

t 

Plot rout i nes 



i 100 

l 

Edit Routine 

- Theoretical H(f> 


1 101 

l 

Edit Routine 

- Theoretical H(f> 


1 102 

l 

Ed.i t Rou t i ue 

- Measured H(F) 

• 

1 

i 1 03 

1 

1 

Edit Routine 

- Measured H < f ; 


! 104 

1 

Ed i t Routine 

- Measu red r! ( f ) 


1 105 

1 

Edit Routine 

- Measured H ( f ) 


1 1 06 

1 

Edit Routine 

- Processing & Plotting 


1 107 

l 

Edit Routine 

- Processing l Plotting 


i 108 

» 

Edit Routine 

- Processing & Plotting 


1 109 

1 

Edit Routine 

- Processing & Plotting 

i 


I 
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KYBD STACK 11 

5 

l 

1000 



o Enables/disables pushbutton 

9 

Y 

1800 

180 

-2 

switches on 5477A SYSTEM CON- 
TROL UNIT b* setting VP No. 180 

15 

L 

1010 



1) VP 180 - -2. (LABEL 1000) f 

19 

Y 

5843 

180D 


DISABLE 






2) VP 180 = 2» (LABEL 2000) » 

24 

Y 

1802 

180 


ENABLE 

29 

# 

1010 

12 

0 



35 < 


38 

L 

2000 



42 

Y 

1800 

180 


48 

L 

2010 



52 

Y 

5843 

1801) 


57 

Y 

1801 

180 


62 

t 

2010 

12 

0 

68 





71 

♦ 
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62 
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38 
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67 
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71 

Y 
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81 

Y 
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39 
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37 

3 ? D 


106 

MS 

27 




110 
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ii 

0 

l 
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Y 
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KYBD STACK 12 


Finite element solution 
(F*E*S* ) routine* 

1) LABEL 1000 - F«E«S« for 
theoretical value of slam* 

2> LABEL 2000 - F.E.S for 
measured value of damma 


56 0 -1 


18 
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56 
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31 
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SUBROUTINE Y6020 ( I , JBUF ) 

C 

C Y 6020 N1 N2 Nil N4 NS N6 PASSES VARIABLE PARAMETER VALUES 
C TO THE FORTRAN USER BUFFER BY USIN6 A DOUBLE PRECX8I0N 
C DATA BLOCK AS THE INTERMEDIATE BUFFER. WHAT THIS PRO- 
L ORAM DOES IS REMOVE THE 6 'END CODE* LIMITATION BY STORING 
U THESE VARIABLE PARAMETER VALUE8 IN AN ARRAY CALLED *XIN* AND 
C PASSING THIS ARRAY THRU COMMON. A MAXIMUM OF 60 VARIABLE 
C PARAMETERS CAN BE PASSED. 

U 

(. REAL VARIABLES USE 2 INTEGAR VARIABLE PARAMETERS FOR EACH 
C VARIABLE. THAT IS. THE REAL VARAIBLE MUST BE STORED IN TWO 
C INTEGAR VARIABLE PARAMETERS. ONE FOR THE MANTISSA AND ONE 
C FOR THE POWER OF 10. 

n 

C INTEOAR VARIABLES USE ONE INTEOAR VARIABLE PARAMETER PER 
C VARIABLE. 

n 

THE PROGRAM ACCEPTS ANY COMBINATION OF VARIABLES. THAT IS. 

0 RIAL ONLY. INTEGAR ONLY OR BOTH BY SETTING A FLAG. 

C 

C 1 6020 IS FORMATTED PER BELOW*. 

C 

0 N1 - INTEGAR VARIABLE PARAMETER STARTING VP * 

C N2 a NUMBER OF INTEGAR VARIABLES 
t: N;i - REAL VARIABLE STARVING VP* 

C N4 *• NUMBER OF REAL VARIABLES 
C N*i - BLOCK * TO USE AS INTERMEDIATE BUFFER 

N6 a H.AG - -1 - BOTH. 0 - REAL ONLY, 1 * INTEGAR ONLY 

f 

U PROGRAM EXECUTION PRE -REQUISITES V NONE 
C 

C NO* El THE 'COMMON* VARIABLES AND ARRAYS REFERENCED IN THIS 
i; PROGRAM WILL CHANGE WHEN USED IN DIFFERENT OVERLAYS. HOWEVER, 
t THE REMAINING SOFTWARE WILL REMAIN UNCHANGED. 


C PAUL 1- PURPURA - 0? /IV. '82 


D i MENS ION' ./BUF ( 6 ) » MQUAL • 5 ) 

COMMON XIN<30> *A(2) *K<2) tC<45) . TC(4)*08<10) ,TP(10> 
COMMON PRO 
HI -• JBUF < 1 ) 

N2 ••UBliF ( 2 / 

N2-= .JBUF < TO 
N4 JBUF (4) 

H'J -JBjr (\ >) 

H-. JDUF ( 6 T 
MUUAI < 1 >-64 
.'UAL v 2 ) II 
ti U At.. I 3 ) ~ T 2 7 6 / 

UN UAL (4.-12 
(iNUAl (0-0 
- r fir" 0 . 

■ YE Ml -0 - 
r I MP 0 
N I 10 I / - 1 * J 0 
".KM iZ. 0. 
i'ONT I HUF 



. • •* i > . i\ YBB < 04151 4B» NS ) 

FUTG(N5*MQUAL ) 

If-<N&> 30*10*30 
30 iVF^Nl 

HO 35 iCTI- 1 *N2 

CALL KYBO (054440B *1822*IVF*N5*1) 
CALL SET ( NS* 1 t TEMP .GUNK ) 

XIN< ICTI )==TEMP 
IVP-IV^+l 
35 CONTINUE 

IF ( N6 ) 40*40*99 
40 )VP«N3 

M4-N4/2 

DO 45 ICTR=ICTI»N4 

CALL KYBD < 054440B * 1822 * I VP * NS * 1 ) 

CALL GEK NS* 1* TEMP* GUNK) 

CALL KYBDC054440B* 1822* IVP+1 »N5. 1 ) 
CALL GET (N5.1.TTEMP* BUNK) 

XIN(ICTR) --TEMP* ( 10*fc*TTEMP) 

I VP - 1 VP r 2 
45 CONTINUE 

99 CALL KY BD < 041 123B* 2048) 

RETURN 
€ N i) 

END* 
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SUBROUTINE Y 6021 ( I » JBUF ) 

L 

C Y 6021 SETS UP AN ARRAY CALLED WHICH CONTAINS THE CO- 
C FFFXE1ENTS FOR THE THERMOCOUPLE WIRE <Pt/6%Rh t Pt/30%Rh) 
C AND GAS STREAM EQUATIONS AND PASSES THEM THROUGH COMMON 
C TO * Y 6023* AND *Y 6024*. 


C PROGRAM EXECUTION PRE-REQUISITES*. Y 6020 

C 

C PAUL T. PURPURA - 07/19/82 

C 

COMMON XIN(30).A(2>tK<2>*C<45>»TC<4>»GS(10>»TP(10> 
COMMON FRO 
DO 10 IZ=t . 45 
C<IZ>=0. 

10 CONTINUE 

C( 1 )»3.8?26*10.**< t > 

C<2>=1 .8746*10. **<~3> 

C<3>*2. 1226*10. **(-6) 


C < 4 ) =- 2 . 7926* 1 0 . ** ( -1 0 ) 
Ci 5) -3*2070*10* **(-2) 
C<6>=4. 8648*10. **<-6> 

C ( 7 ) «-3 - 820 1 * 10 . ** ( -13 ) 

C < 8 ) ---1 ,0204* 10 .** ( -13 ) 

C ( 9 ) -2 . 6336* 10. ** ( -4 > 

C <1 0 t = -2 . 4380* 1 0 . ** < -8 ) 
C< I 1 >~1 . 4592* i Q .**<-11 ) 
C< 12 ; ~-'i .587 *10. **(-15) 
r i 13 > -“3.0239*10. **( 1 ) 
r. < I 4 1=1. 0526* 1 0 . ** < -2 ) 

C< 15) “-1.8102*10.** I -61 
C ; 1 6 ) - i . 1 490* 1 0 . ** ( - 1 0 ) 
0( 17 >-3-9228* 10. **<-2 > 

C< 13>=4. 8327*10. **(-6> 
r.U9) .5. 3457* 10.** (-9) 
•:<20> = --t , 7309*10. **<-12; 
C<21 ,2544*10 ♦**< -16) 

C < 22 ) * l . 9764* 10 ♦ ** < -4 ) 
r.<:>:v< =3, 2121 * 10 . **<-3) 

C < 24 >=■ -1.5888*10. **<-11 > 
C ( 25 > «2. 9097*10. **( -15) 

C < 26 ) *1 . 8998*10. **< -5) 
C<27)-1 . 4023*10 . ** < -2 > 

C < 28 >*2. 7 S57* 10.**< -5 > 

T <29)=2. 4733*10, **<-1 ) 

C i 30 > = - 3 » 4000* 1 0 . ** < -5 ) 

C < 31 > = 1.3750 
C ( 32 ) = 1 .9429*10. **<-5 > 
C(33>-*1 .4041*10. **<-2> 

C <34)=2. 7400*10 . ** < -5 > 
C(.’»5)=2. 4413*10. **<-1 > 
f. •; 36 > --3 . 4500*1 0 . ** < -3 ) 

(’■ i 5 7 1 •" 1 ,36 9 0 
C v 38 > 1 , 9859*1 0 , ** < -5 > 

C < 39 > - 1 , 4062*1 0 . ** < -2 > 
r. f, 40 ) =2 , 7091 *1 0 . ** < -5 > 
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» ! . K , ■ 

CiAl ) -2.3V37#10.**(-1 > 
C<42>=-? 5000*10, **<-5) 

( 4 3 > ~ i . S 3 0 

UM4)»9* 0420*10, **(-9) 

C(45>- 1 ,6100*10. **(-5> 

RETURN 

END 

END* 
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SUBROUTINE Y6022 ( I » JBUF ) 


ORKMNAL PAGE 19 
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Y 6022 CALCULATES THE FOLLOWING THERMOCOUPLE WIRE PARA- 
METERS AND OUTPUTS THEM INTO THE ARRAY 'TC* WHICH IS 
PASSED THROUGH COMMON, 

1. DENSITY (RHO) 

2. THERMAL CONDUCTIVITY <XK> 

3. SPECIFIC HEAT (CP) 

C 4 . THERMAL DIFFUSITY (AL) 

f; 

C THE VALUE OF *XIN<8>‘ DETERMINES WHICH SET OF EQUATIONS 
C WILl BE USED. 

C. 

C 1. WHEN * XIN ( 8 ) * IS ‘O' THEN EQUATIONS FOR Pt/AZRh TC'S 
C WILL BE USED. 

C 

C 2. WHEN * X IN ( 3 ) * IS *1* THEN EQUATIONS FOR Pt/30XRh TC'S 
C WILL BE USED. 

C 

C PROGRAM EXECUTION PREQUXSITES J Y 6020»Y 6021 


0 PAUL T, PURPURA - 07/19/82 

C 

COMMON XIN(30>»A(2> fK(2)*C(45) >TC(4) t08<10> rTP(lO) 
COMMON FRO 
DO 10 17=1 >10 
TC(IZ)=0. 

10 CONTINUE 

T = XIN < 8 ) 

IF(XIN(1)> 99 » 20 > 30 
20 RHO= 1278.7 

XK=C ( 1 ) +C < 2 ) *T + C ( 3 ) *T**2+C ( 4 ) #T**3 
CP-C ( f. ) +C ( t , > *T4C ( 7 ) *T**2+C ( 8 ) *T**3 
Ai =C< 9)+C( 10)*T+C( 11 >*T#»24C< 12>*T**3 
GO TO 40 
-30 RHO 1092.1 

\'K- CM3 >+C< 14 >*T+C( 15>*T**2+C< 16)*T#*3 
CP=C c 17 ) 4C ( 18 ) #T4C. ( 1 9 ) *T**2+C ( 20 )*T**3+C<21> *T**4 
AL-C < 22 ) 4C ( 2.3 >*T4C < 24 > *T**2+C ( 25 > *T**3 
40 TC ( 1 ) • •PHG 

1 C ( 2 ) ; XK '3600 . 

TC ( 3 ) •= OF 
T C ( 1 * Al. 

99 RFTIJRM 

END 
END* 
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SUBROUTINE Y6023<It JWJF) 

C ■ •. v* • 

C Y6023 CALCULATES THE FOLLOWING GAS STREAM PARAMETERS AND 
C OUTPUTS THEM INTO THE ARRAY »GS' WHICH IS PASSED THROUGH 
C COMMON. 

C 

C 1. DENSITY (RHO) 

C 2. THERMAL CONDUCTIVITY XK) 

C 3. SPECIFIC HEAT (CP) 

C 4. SPECIFIC HEAT RATIO (GA) 

C 5. VISCOSITY (XMU) 

C 6. SONIC VELOCITY <C) 

C 7. KINETIC VISCOSITY <G> 

C 8. PRANDTL NUMBER (PR) 

C 9. MEAN GAS VELOCITY <U> 

C 10. AERODYNAMIC PARAMETER (GMA) 

r 

C EQUATIONS USED TO CALCULATE PARAMETERS 2» 3> AND 4 ARE DEPENDENT 
C ON THE FUEL TO AIR RATIO <XIN<3)>. 



C 

c 

c 


PROGRAM EXECUTION PRE-REQUISITES! Y 6021 

-AUL T. PURPURA - 07/20/82 

COMMON XIN(30) »A<2> >K(2) »C(45> f TC(4> tGS(lO) »TP(10) 
COMMON FRQ 


DO 10 IZ-i*10 
Vi 6S< IZ > - 0 ♦ 

j 10 CONTINUE 
1 = X i N ( 8 ) 

F-' XlNi V ) 

XM=X IN < 10 ) 

! A - X I N ( 3 ) 

». 1 - . 0 i 5 


>’i »' - . 0 2 3 

i • t FA . LE » XL i ) GO TO 20 
IF ( FA. OT . XL 1 ♦ AND. FA . LE .XL2> GO TO 30 
IMFh.GT.XL2) GO TO 40 
70 XK®0( 26 ) *T+C( 27) 

CP=C(28)*UC<29) 

GA=C(30 i*T+C(3i ) 

GO TO 30 

30 XK-C ( 37 ) *T+C < 33 ) 

CP -C< 34>*T+C<35) 

IS A - C v 3 6 ) * T + C ( 3 7 ) 


GO 10 SO 

aF-C(38)*T+C(39) 

( T; ( •>0;*T+C<41) 

b A • ' 4 2 ) * T t C ( 4 3 ) 

■j ■ > ■( .-i J ~ C ( 4 4 ) * I + C i 43) 

RHO ~ 7 . . 6983# < P/ < T+460 . / ) 

C i. . 434* : SORT ( GA* (T + 460.))) 

IS - XMU / RHO 

f" K - $ 6 0 C . ♦ X M 5J * C P / X K 

i!-;<M*C 

.Win- . 4 S'* XK* (. PR** ( 33333 . E-5 ) ) * ( SORT (U>> 
GMA ::; GMA/ < SORT < G ) *TC< 1 )*TC(3) ) 
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GS\ i >«RHO 
86<2>®XR 
GS<3>*CP 
88 < 4 > -GA 
GS (S) -XHU 
GG(6>-C 
66 < 7 > -3 
GS < 8 > -PR 
66 ( 9 > =U 

GS ( 1 0 ) =GMA/3£00 « 

A ( 1 ) =BS ( 10 ) 

CfLL XINTZ < X f IX »NP ) 

CALL KYBD ( 054440B » 1800 »243?K(1)) 

CALL KYBD(054440B»1800»244»K(2)) 

RETURN 

END 

END* 
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SUBROUTINE. Y6024 ( I r JBUF > OF POOR QUALITY 

t 6024 N1 N? N3 EVALUATES TRANSFER FUNCTIONS PER BELOW 
“OR N1 VALUES OF GAMS ARB STORES THEM IN FILE 1 STARTING AT 
RECORD 10. FOR SHALL WIRE DATA* AND RECORD 30. FOR LARGE 
4IRE DATA. A MAXIHUH OF 13 VALUES OF GAHHA ARE ALLOWED. 

1. SMALL WIRE (GAIN AND PHASE) VS THE GAS STREAM 

2. LARGE WIRE (GAIN AND PHASE) VS THE GAS STREAM 

Y 6024 IS FORMATTED PER BELOW: 

Ml THE NUMBER OF GAMMA VALUES 

M2 * FLAG - 0 * .THEORETICAL GAMMA EVALUATED. GO FROM .5 TO 1.5 

TIMES GAMMA IN .1 INC'S. 

1 = .MEASURED GAMMA EVALUATED* LEAVE ALONE 
N3 - FLAG - 0 - .EVALUATE PIECEWISE TRANSFORM. CH 1 TO 50 CON- 
SECUTIVE* THEN EVERY 10TH CHANNEL. THEN CH 1023 
1 - .EVALUATE SPECIFIED CHANNELS FROM EDITS 

V 6024 CALLS THE FOLLOWING SUBPROGRAMS: 

1. TRFP - THIS SUBPROGRAM CALCULATES THE COEFFICIENTS FOR THE 

TRANSFER PROGRAM * TRFM* AND PASSES THEM THROUGH 
COMMON. 

2. TRFM - THIS SUBPROGRAM EVALUATES THE TRANSFER FUNCTION. 

3. YIN T Z - THIS SUBPROGRAM CONVERTS ANY FLOATING POINT VAR- 

IABLE TO AN INTEGAR AND POWER OF 10. 

PROGRAM EXECUTION PRE-REQUISITES* Y 6022. Y 6023 . 

PAUL T. PURPURA - 09/04/82 

DIMENSION JBUF ( 3 > . MGUAI. ( 5 ) 

COMMON X I N ( 30 ) .A<2> .K* 2) .C<45> .TC( 4 ) .GS< 10) »TP(10> 

COMMON FRO 
Nl- JBUFCi ) 

N 4 --JBUF ( 2 ) 

N5= : JBUF \ 3 ) 

IF < N4 > 81 . 31 . 82 
T - X I N ( 1 1 >+.00001 
GO TO S3 

T XIN( 14)+ .00001 
IF (N5)4.4r 5 
N2 - 1 
N? ~1C'23 
NS- Li. 

GO TO ? 

CHN"-XI.N ' 1 2 > / X I N ( 1 5 ) 
i\ ' : --CHN+ . 05 
L H N - X I N < 1 3 ) / X I N ( 1 1 ) 

N8-- CHN+ . 05 

CHN-X IN ( 25 > /X IN < 1 1 > 

N? CHN+.05 
MO UAL ( 1 ) ~2048 
ML UAL >' 2 < - 5 
M 0 U A L •' 3 ) - 3 ? 7 6 7 
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6 j 
6 2 

63 

64 
63 


66 

70 


9 


10 


3 

6 

11 

12 


13 

14 

13 


16 

17 

18 


19 


» V# 


78 :io 


IF i T- . 5 ) 63, 61 » 61 

IF < T-l ♦ 364,62,62 

IK T-2 • >65,66,66 

MQUAL ( 4 ) =49 

80 TO 70 

MQUAL ( 4 ) -S3 

60 TO 70 

MQUAL < 4) -57 

GO TO 70 

MQUAL < 4) -61 

MQUAL ( 5 ) =0 

D6MA- *5 

If:i»N2 

00 9 IA=4»7 

X 1 N < 1 A ) ®X IN < I A ) / 1 2 ♦ 

CONTINUE 

DO 10 IZ*1,11 

CALL KYBD <04151 4B»IZ) 

CALL PUTQ( IZ, MQUAL ) 

CONTINUE 

CALL K YBD( 0544 40B, 5838, 1 ) 

DO 30 16*1 » N1 
OLDPHS=0 ♦ 

JF<N4>1»1,2 
TGMA=G8(10>*D6MA 
GO TO 3 
TGMA*GS( 10) 

DO 20 IC=N2»N7 »N8 

IF(N5>6,6, 15 

IF ( IC-1023) 11,15,15 

IF ( IC-50 >12,13,13 

IC1«IC1+1 

GO TO 15 

IF<IC-IC1>20»14»14 

IC1=IC1+10 

A< 2 )*TGMA 

xic=ir. 

FRG= T*XIC 
CALL TRFP(X) 

CALL TRFM( X » Y ) 

IF < OL DF'HS-A ( 2 > ) 1 6 » 16 * 1 7 
A( 2 ) = OLDF'HS 
GO TO 18 
0LDPHS=A<2> 

CALL PUT < T G > I C * A ( 1 > » A ( 2 > ) 

CALL KYBD (0544406,531 9 ,1,1) 

A< 1 >*FRQ 

CALL XINTZ (X»IX»NP> 

CALL KYBD(054440B,1800» 1 »K ( 1 > > 
CALL KYBD<0S4440B» 1800*2 »K< 2) ) 
CALL KYBIK054440B, 1309,1,2 3 
IF r N4 > 1? » 19 »20 
A( 1 l-DGMA 

CALL XINTZ ( X , IX , NP > 

CAl L KYBD < 054440B * 1800 »1»K(1>) 

CALL KYP.U •! 034440B , 1 800 , 2 ,K ( 2 ) > 

CALL KYBD < 054 4406 » 1 80? * 1 » 2 > 

CONTINUE 

UGhA- DGMA+ • .1 

CUNT 3 NUE 
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if 'N4;31*:U»SO 
l If- <XIN<2> >35»35»34 

3 CALL KVBD < 04A523B > 31 » 10 ) 

UD TO 37 

3r. CALL KYBD(044523B»31 >30) 

3? DO 40 IM«1*N1 

CALL KYBD<046523B*21»IM> 
40 CONTINUE 

50 RETURN 

END 
END* 
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SUBROUTINE Y6026( I r JBUF ) 

C 

C Y 6026 N1 N2 N3 N4 EVALUATES THE TRANSFER FUNCTION BETWEEN 
C 2 DATA BLOCKS ♦ 

C 

V 6026 IS FORMATTED PER BELOW? 

N1 - NUMBER OF RECORDS (GAMMA VALUES) 

N2 * START POINTER IN FILE 1 FOR SMALL WIRE VS GAS STREAM H(f) 

N3 * START POINTER IN FILE 1 FOR LARGE WIRE VS GAS STREAM H(f> 

N4 * START POINTER IN FILE 1 FOR 10 MIL VS 3 MIL 

THE PROGRAM USES BLOCKS 0 AND 1 FOR COMPUTATIONS 

PROGRAM EXECUTION PREQUISITES? Y 6024 (TWICE) 

PAUL T. PURPURA - 09/14/82 

DIMENSION JBUF (4) »HQUAL(S) 

COMMON XIN ( 30 ) 

N1 -JBUF ( 1 ) 

N4= JBUF ( 2 ) 

NS 'JBUF ( 3 > 

N6- JBUF < 4 i 
MUUAl ( 1 >«2048 
MODAL < 2 ) - 0 
HO UAL K 3 > --32767 
MOUAl. ( 4 ) - 6 1 
MO UAL v 3 ) ”0 
IS = N6 

('.ALL K YBD <04151 4B»2> 

CALL PUTO < 2 t MOUAL ) 

IUi JO 1R-1.N1 
CALL K YBD ( 046523B » 31 > N4 > 

CALL K YBD (046323B.il) 

CALL KYBD ( 046S23B * 31 »N5 ) 
i'.Al L KYBD < 046523B » 1 1 » 1 ) 

X:..-XIN( 12)/XIN< 11 ) 

V. i ! :<IN( 2S)/XtN( 11 ) 

X )> X I N < 1 3 ) / X I N ( 11 ) 

TL XL F ♦ 05 
t U-XU4 ♦ 05 
IN -XI +.05 
DC 20 IC-IL'IUtIN 
CALL GET (0>IC»G3*P3 > 

C A I. 1. OFT ( 1 , IC»G10f P10) 

TF 1 OT 3-Gi 0/B3 
PH 1 0 T 3 * P 1 0 -■ K 3 
i r.as(PHiOT3) 

IF ( 1HC ♦ - l )10»13»13 
| ( F < F H 1 0 T 3 > 1 1 » 1. 2 * 1 2 

PH10T3“PH10T3~360. 

mi TO 13 

12 PH10T3-PH10T3+360 . 

i-4 CALL PUT< 2. IC»TF10T3iPH10T3> 

20 CONTINUE 
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N4“N44'l e 

N5*N541 -f 

CALL KYBDl046323Br31»IS) 

CALL KYBD(046523B»21»2> 

IS-* 1 8+1 

CONTINUE 

RETURN 

END 

END* 
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SUBROUTINE V6027 ( I » JBUF > Of POOR QUALITY 

c 

C r 6027 N 1 N2 N3 N4 NS N6 DETERMINES THE MEASURED VALUE OF OAMMA 
C AND 8T0RES IT IN ( G8<10>* FOR EVALUATION OF THE MEASURED TRANS- 
C FER FUNCTION. IT IS FORMATTED PER BELOW} 

C 

C N1 * FLAG - 0 - READ OAMMA FROM COMMON. 1 * CALCULATE OAMMA. 

C N2 * STAROING RECORD « IN FILE 1 FOR LAR0E/8MALL WIRE K(f>. 

C N3 * NUMBER OF THEORETICAL X-FER FUNC. RECORDS 
C N4 » SCRATCH BLOCK FOR THEORETICAL DATA* 

C N5 * BLOCK WHERE MEASURED X-FER FUNC RESIDES 
C N6 = BLOCK WHERE COHERENCE FUNC* RESIDES* 

C 

C IT PERFORMS THE FOLLOWING DATA CHECKS} 

C 

C 1. DETERMINES IF THE MEASURED GAIN CR0S8E8 THE THEORETICAL X-FER 
C FUNCTION CURVE. 

C 

C 2. DETERMINES IF THE COHERENCE IS WITHIN SPECIFIED LIMITS OF 
C .8<Y**2 11.005. 

C 

C 3. DETERMINES IF A COMBINATION OF ABOVE ERRORS WOULD RESULT IN 
C NOT HAVING A MEASURED VALUE OF GAMMA. 

C 

C IN EACH OF THE ABOVE CASES. A MESSAGE IS DISPLAYED ON THE 
C TERMINAL TO FLAG THE OPERATOR. IF A MEASURED VALUE OF GAMMA 
L IS NOT DETERMINED. PROCESSING STOFS AND THE OPERATOR IS AD- 
C VISED TO CORRECT THE PROBLEM AND REPEAT THE ACQUISITION. 

C 

C PROGRAM EXECUTION PRE-REQUISITES*. Y A020.Y 4021 tY 4022 »Y A023 
C 

C RAUL 7. PURPURA - 09/27/82 
C 

DIMENSION JBUF ( 6 > 

COMMON XIN(30> »A<2> »K<2) »C<45> >TC< 4) ,GSUO> »TP< 10) 

COMMON FRO 
Nl-JBUFU > 

N?” JBUF < 2 ) 

Niu JBUF ( 3 > 

N4- JBUF < 4 ) 

NS- JBUF ( S '/ 

N6 JBUF ( 6 ) 

Ti-(N1)10.10.20 
10 10)»XIN(24) 

HO TO 9V 
2C AVC*C . 

/ 2 L - . 8 
AVGMA-C . 

( 003 

IRH- N2+H3-1 

R,-XIN(il)/XIN(l4> 

NF-KA 

XL - ' r A*XIN( 12 > >/XINUl> 

XU*FA*XZN(25>/XIN(1 1 > 

I L -XL+ . 00 

iu >:u+.on 

TN- F A* X I N < 1 3 '/ / X I N < i 1> 

£ N ~7Nt . 00 

CALL KVBD<054440B.0838» 1 > 




31 

40 

41 

42 

43 


44 


so 

r.r. 


f.O 


f v 


do so «*juyti*<in 
1T*IC/MF 

CALL GET(N5» IC.GN.PH) 

DO 40 IR-N2.IRH 
IRT «IR+1 

CALL KYBD(04A523B.31»IR> 

CALL KYBD< 046523B.il »N4) 

CALL GET <N4. IT. VI .PI ) 

CALL KYBDI 046S23B » 31 » IRT ) 

CALL KYBD< 046523B. 1 1 .N4 > 

CALL GET<N4»'IT»V2»P2> 

IF (ON- VI >40.31.31 
IF (V2~GN)40»41 .41 
CONTINUE 
GO TO 44 

CALL 8ET<N6»IC»Y2»PP> 

IF(Y2-Y2L >44.42.42 
IF ( Y2U-Y2 >44.43.43 

xir*:k 

XN2-N2 

Rl**5+*l*iXIR'-XN2) 

AVGHA-AVGMA+R1+ < GN-V1 5 * < . 1 > / < V2-V1 > 
AVC-AVC+l . 

GO TO SO 
XIC*IC 

FR“XIC*XIN( 14) 

A< 1 > -FR 

CALL XINTZ < X » IX .NP ) 

CALL KYBD<0544408»5819»3»1 > 

CALL KYBD<05444GB. 1800.1 *K( 1) > 

CALL KYBD( 0544 406 » 1800. 2 >K< 2 > > 

CALL KYBD( 0C4440B. 1809 .1.2) 

CALL KYBD<054440B. 5819.1 .1 > 

CONTINUE 

IF <AVC >55.55. 60 

CAM K i'BD<054440B.5819»10. 1 > 

CALL KY8D ( 042040B » 0 ) 

AV6MA- AV6MA/AVC 
A; 1 !'=QS5U0; 

CALI- XINTZ ( X. IX»NP> 

CALL KYBP < 054440B > 1 800 » 1 » K ( 1 ) ) 

CALL KYRD ( 054440B * 1800 . 2 » K < 2 ) ) 

CALL KYBDLO 54 44 OB .5019.4.1) 

CALL KYBDL054440B. 1809*1.2) 

CALL KYBIH054440B. 0819.1. 1 > 

GS< 10) -GS(10) UtAVGMA 
A < 1 UG8<10> 

CALI. X I NT 7. ■; X . i X »NP ) 

2 A I l K VBD < 054440B .1800 » 243 . K < 1 ) ) 
CALL KYBD ( 0S4440B >1800. 244. K<2>) 
CALL K YBD( 0344406.0819. 11 .1) 

•'.ALL KYBIK054440B » 180? » 243 .244 > 

CAL L KYBD < 054440B * 5819 » 1 » 1 ) 

RETURN 

PWl« 

cn;i* 
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SUBROUTINE Y6028U.JBUF) 

U 

C Y 6026 NX N2 N3 N4 NS N6 CONVERTS HXLLIV0LT8 TO DEQ-FARENHEIT 
C BY USE OF N.S.S. TEMPERATURE CURVES. DATA CAN BE FILTERED BUT 
C NOT UXNBOWED. XT READS DATA FROM FILE 1 ON THE DISC CONVERTS IT 
C TO TEMPERATURE AND 8T0RE6 IN THE SAME RECORD NUMBER THAT XT UA8 
C REMOVED FROM. 

C 

C NX * BL0CK8XZE 

C N2 « • OF THRU-PUT RECORDS 

C N3 » STARTING RECORD IN FILE X 

C N4 « TC CODE FLAG* X * CR/AL. 2 • PT/10%RH» 3 * PT6Z/PT30X 
C 4 - CU/CON 

C NS * COORDINATE CODE 

C Ni ^ FREQUENCY CODE 

C 

C THIS PROGRAM USES DATA BLOCKS 0 AND X FOR COMPUTATIONS. DATA 
C. MUST BE SCALED TO MILLIVOLTS PEAK, 
c: 

THIS PROGRAM CALLS 2 SUBPROGRAMS: 

1. * TCOEF * - WHICH INPUTS ALL TC CURVE EQUATION COEFFICIENTS* 

C: 2. •TCALC" - WHICH CALCULATES TEMPERATURE FROM THE APPROPRIATE 
C TC CURVE. 

C 

C PAUL T. PURPURA - 09/14/82 

L, 

DIMENSION JBUF(A) .MOUAL < 5) 

COMMON XIN(30)»A(2>»K<2>r TCF <11.9). I Ft. 

Nl JBUF < 1 > 

N2- JBUFC2) 

N3- JBUF ( 3> 

N4 - JBUF < 4 ) 

N5-JBUF < 0) 

N4- JBUF < 6 ) 

MOUAL ( 1 ) -NX 
MOUAL ( 2 > *N5 
MOUAL <3) 3 32767 
MOUAL < 4 ) *N6 
MOUAL (5) -0 

CALI KYBP ( 04 1514B. 1 ) 

CAL L PU TO <1» MOUAL) 

IFL*N4 

CALL TCOEFCZ) 

CALL KYBDC054440B. 5838.1 ) 

DU JO I R - 1 * N 2 

CALL KYBDt046CiJ3B.31.N3) 

CALL KYBD ( 046523B .11) 

DALI KYBD;054440B. 1800.0* N3> 

CALL KYBTK 0544408*5819 » 7 » 1 ) 

CALL KYBIX0S4440B. 1809*0) 

CALL KYRD C054440B >581 9*1 . 1 ) 

1.0 10 

AL l. GET ( 0 . 1 C~ 1 . A ( 1 ) » CRAP > 

LA i l I CALC (Z) 

CALI. PUT i 1 » IC-i .A< 1 > .CRAP > 

U) CONTINUE' 


CAL rrMfifr 31 * N3 ) 

c.ftl t RYPtr(ffV^3(lfi21»l) 

143 143+1 

CONTINUE 

RETURN 

END 

04 It * 
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SUBROUTINE YA029 ( I » JBUF > Of POOR QUALITY 

c 

C. V 6029 N1 N2 N3 N4 N5 N6 IS A MODIFIED VERSION OF *Y 6028* , 

C WRITTEN ESPECIALLY FOR •HOST*. UNLIKE *Y 6028, WHICH LINEARIZES 
C ONLY ONE RECORD AT A TIME AND DOES NO SCALING* *Y 6029* REMOVES 
C AMPLIFIER DC OFFSET ANfi SCALES THE DATA PRIOR TO LINEARIZATION. 
C 2 RECORDS ARE AC DATA (LARGE t SMALL WIRE T/C> AND THE THIRD 
C IS THE DC CHANNEL. AFTER REMOVAL OF DC OFFSET AND SCALING* THE 
C PROGRAM ADDS THE DC TO THE AC. CONVERTS IT TO TEMPERATURE AND 
C THEN REMOVES THE DC, LEAVING PEAK TEMPERATURE. THIS IS DONE TO 
C BOTH AC CHANNELS, 

C 

C PAUL T. PURPURA - 10/28/82 

C 

DIMENSION JBUF ( 6) , MQUAL ( 5 ) 

COMMON XIN(30)*A<2)»K<2)» TCF <11»9)*IFL 
Nl- JBUF ( 1 ) 

N2-JBUF <2) 

N 3- JBUF ( 3 > 

N4" JBUF ( 4 ) 

NS»JBUF<5) 

H6~ JBUF «' 6) 

MQUAl ( 1 *~N1 
MOUAl <2>*NS 
MGUAL ( 3 > ”32767 
MGUAL (4)-N6 
MOUAL • 3 > =0 
IFL--N4 

CALL TCOEF(Z) 

( ALL KYBD ( 054440B » 5838 * 1 > 

0 0 10 ICL~1»14 

CALL KYBD <0415146. ICL-1 > 

10 CONTINUE 

CALL PUTCHO, MQUAL) 

CALL PUTQ< 1 * MQUAL) 

C ALL PUTQ(2»MQUAL. ) 

CALL K YBD < 0 46523B * 31 * N3 ) 

DO 30 IR-1 , N2 

CALL KYBD< 046523B.il, 3) 

CALL KYBD (046523B.il, 4) 

CALL KYBD (046523B.il, 5) 

CALL KYBD ( 046523B » 31 » -3 , 1 > 

CALL KYBD<054440B,1800»0»N3> 

N3=N3+1 

CALL KYBD ( 0544 4 OB , 1 800 , 1 , N3 ) 

N3=N3+ 1 

CALL KYBD ( 054440B , 1 800 , 2 , N3 ) 

N3-N3+1 

CALL KYBD (0544406,5819,7, 1 ) 

CALL KYBD (054440B, 1809,0,2) 

CALL KYBD (0544 408,58 19, 1 , 1 ) 
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JO 20 IC«t»Nl 

HAL!. GET ( 3 » IC--1»D3M»CRAP) 

CAL L GET < 4 * IC-t » DiOM» CRAP > 

CALL GET ( 5 » IC~i » DgC »CRAP ) 
lU4M=ri3M-XIN<17> 

Ul0h-'Iil0h-XIN(20> 

nnc=ii»c-xiN<23> 

D3M D3M#XIN< 16>*<1000. >/XIN(15> 

DJ 0h-D10M*XIN ( 19)#<1000*)/XIN(18) 
DDC : DDC*XIN< 22>*( 1000 » )/XIN(21) 

A < 1 >*GDC 
CALL rCALC(Z) 

TDC-A ( 1 ) 

D3KDPOII3M+DDC 
D10MDC-D10M+DDC 
A < 1 ) -D3MDDC 
CALI.. TCAl.C ■ Z ) 

T3MDDC-A ( 1 > 

A < 1 >-DlONDC 

CALL TCALC(Z) 

riOHDC-AU > 

f :5M a T3Ml>DC-TDC 

I I0M-T10MBC-TDC 

CALL PUi (0»IC-l»T3M»’C^4py ’ * 

CALL PUKlt IC-lVTi^tRtt^y* 

CAL L E LIT ( 2 » I C- 1 . T DC > CRAP / 

20 CONTINUE 

CALL. KYBD ( 046 j23R » 21 1 0 ) 

CALL KYBB\04A523B»21 » 1 > 

CAL L KYBD < 04&S23B 1 21 » 2 > 

30 CONTINUE 

RETURN 
F i ! 0 
Erl HE 


PAGE ig 
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* 
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1.3 


Fortran Subroutines 


SPCY 



i Evaluates 

sampling f reauenca for 'TRFM* arid *TRFP* 

TCALC 

1 Evaluates 
„ ! _ 

DEG-F for *Y 6028' and 'Y 6029 ' 

TCOEF 

l - — — - — — — - 

! Inputs N.i 

B.S. curves for *Y 6028* ar.d *Y 6029' 

TRFM 

1 Evaluates 
_ 1 _ 

H(f) algorithms for *Y 6024* 

TRFP 

“ 1 

i Evaluates 

„ i . __ 

H<f> coefficients for *Y 6024* 

XINTZ 

- 1 ^ . 

1 Changes a 
“ i 

floating point number to an interSer & PUR 1 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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ORIGINAL PAGE 19 

H OF POOR QUALITY 

SUBROUTINE' SPCY(X) 

P 

V. 'br'L.'f' IS A SUBPROGRAM THAT DETERMINES THE SAMPLING FREQUENCY 
C AS A FUNCTION OF THE INPUT FREQUENCY. IT OUTPUTS THROUGH THE 
C ARRAY 'A* . 

C 

C CALLING PROGRAMS: TRFPt TRFM 

C 

C PAUL T. PURPURA 08/30/82 

n 

COMMON XIN(30)»A<2> »K<2> »C(45> »TC(4) »GS(10) »TP<10) 

COMMON FRQ 
FFRQ+. 00001 
1 F < F-62 ♦ 5 ) 1 * 2 r 2 
1 P-l./F 

r^P/<5.*10.**v-4>> 

Tl-T/4. 
li ft 
Ti - 1 1 

A a )-<Tl + l . >#4. 

60 TO 3 
A ( 1 ) -32 ♦ 

3 RETURN 

END 
END 4 
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F T N 4 * I. 

SUBROUTINE TtALCCX) 

* ' 

C * TCALC * IS A SUBPROGRAM THAT CALCULATES TEMPERATURE FROM THE 
C COEFFICIENTS IN THE ARRAY * TCF* AND SPECIFIED THE TC CODE FLAG 
C ENTERED IN *Y 6028’ ♦ 

C 

C CALLING PROGRAM: Y 4028 

n PAUL T. PURPURA - 09/14/82 
C 

COMMON XXN(30)»A(2)»K(2>»TCF(11»9)»XFL 
IF ( IFL . EQ * 1 ) GO TO 10 
IF<IFL.EQ.2>80 TO 20 
IF ( IFL *EQ . 3 >GQ TO 30 
I H IFL * EQ ♦ 4 > GO TO 40 
CALL WHAT 
10 IRL -I 

SU TO 25 

20 IRC ^4 

25 IRH- f RH+2 

GO TO 50 

30 IRL*/ 

XKH-IRL+3 
GO TO 50 

40 I R * i 1 

GO TO 60 

50 DO 55 IR*IRL » IRH 

I F ( TCF •: I R » 1 ) - A ( 1 ) > 55 > 55 » 60 
CONTINUE 

XN-TCFI IRf 2>*A<1 J+TCF< IR»3> 

DF*TCF(IR»4>+TCF< IR,5 >*XN+TCF < IR>6 >*XN**2+TCF ( IR,7 >*XN**3 
DF*DF+TCFaR>8)*XN**4 + TCF< IR»9)*XN**5 
A ( 1 )*DF 
RFTURN 
END 


FTN4,I 
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SUBROUTINE TCOEF(Z) 

C 

C * TCOEF “ IS A SUBPROGRAM THAT CONTAINS ALL TC CURVE EQUATION CO 
C EFFICIENTS AND STORES THEM IN AN ARRAY CALLED 'TCF* WHICH IS 
C IN COMMON ♦ 

C 

C ALL EQUATIONS (1$? DERIVED FROM N.B.S. CURVES, WHERE THE INDE- 
C PENDENT VAftlAttg (MILLIVOLTS) WAS NORMALIZED BETWEEN -1 AND +1 

C 

C REFERENCE JUNCTION - 32 DEG-F. 

C 

C CALLING PROGRAMJ Y6028 

c 

C PAUL. T. PURPURA - 09/14/82 

C 

COMMON XIN < 30 ) , A< 2 > , K < 2 > , TCF < 1 1 * 9 > , IFL 
TCF <1*1 > -6. 0920*10. **<0) 

TCF (1 *2 >-"29.481 1*10.** < -2> 

TCF < 1 ,3>=-7.9599*lC.**<-l> 

TCF < 1 1 4 > «■ 1 5 . i 489*10 . ** < 1 ) 

TCF < 1 .5 ) -14, 7235*10. **< i ) 

TCF < 1*6)*- 14.41 94# 10.**(-1> 

TCF < 1 ,7 >=27.6855*10 ,**<-1 ) 

TCF < t * 8 ) - 0 , 
rCFd ,9>-=0. 

V r < 2 , 1 ) -1 6 .3490*10 . ** ( 0 > 

TCF < 2 ,2) -1 9 . 4989*1 0 . **< -2 > 
i CF < 2 , 3 » =-21 . 8787*1 0 . ** < - 1 > 

1 Cf i2»4> 52. 8841*10. **<1> 

TCF < ;• • 5 > -22 . 5012*10 . *# < 1 ) 

TCF 2 , 6) --40* 4444*10 .**<“!) 

1 1 ■ L < 2 * 7 ) -0 . 

TCF (2*8) :, 0 . 

TCF*: 2t 9)--0. 

TCF < 3 , 1 > - 32 . 9390*1 0 . ** < 0 > 

TCF < 3 * 2 > =54 . 6597*10. **< -3) 

TCF <3, 3>~~ 19.9363* 10. **<-1 ) 

TCF < 3 * 4 > •“ 10 . 3262*10 ,**<2> 

TCF (3.5) - 80 . 7975* 1 0 . ** < 1 ) 

TCF < 3 * 6 ) -42 . 3674* 10 . *# < 0 ) 

TCF < 3 * 7 > 16 . 7773*10 . ** < 0 > 

TCF (3*3) - 0 . 

T CF < 3 * 9 > - 0 . 

CF < 4 » 1. ) = 1 . 4780*1 0 . ** < 0 ) 

TCF < 4 * 2 ) - 13 . 4771*10 - ** < -1 > 

T CF < 4 , 3 ) -99 . i 9 1 4*1 0 . ** < -2 ) 

TCF < 4 r 4 > =23 . 43 1 4^ ' 0 . ** < 1 ) 

TCF <4»3>-i • . 7 489* 10 ♦ ** < 1 > 

TCF < 4 » 6 ) - “ 18 . 7673* 1 0 ♦ ** < 0 ) 

TCF •; 4 , 7 ) -73 . 3276*10 . **<-l> 

T C F < •» * 8 ) - 0 . 

T CF ',4,9) ■■■■■() < 



TCF ( 5 * 1> a A . 91 30*1 0 . ** < 0 ) 

TCF ( 5. 2 > = 36 ♦ 7985*10 ♦ **< -2 ) 
TCF(5»3>=~15. 4338*10 . **( -1 ) 
TCF (5 » 4 ) *92 .5658*10 »**( 1 ) 

TCF <3.5 >*49. 4519*10. **<i> 

TCF< 5,6) *-24.9707*10, **(0> 

TCF (5. 7 )=53. 3789*10 . ** (-1 ) 
TCF(5»8)=0. 

TCF (5 .9 ) "“O * 

TCF(6»1)*18. 6120*10. **(0) 

TCF < 6 .2 > = 17 * 0955*10 .If ( -2 ) 

TCF (6»3>»-21 . 8181* 10. I* (-1 ) 
TCF (6»4)=23. 1347*10.** (2) 

TCF ( 5) *86. 9542*10 •**< 1 ) 

TCF <6. 6 ) =-14.0391*10. **<0) 
TCF(6.7)=30.3267*10.**<0> 

TCF < 6. 8 ) =0 . 

TCF(6»9)=0. 

TCF ( 7 » 1 >=27.4339*10. **(-3) 

TCF <7. 2 >=683. 6671*10. **<-!> 
TCF ( 7 » 3 > --885 . 0557*10 . ** < -3 > 
TCF (7. 4 ) =1 63 ♦ 3668*10 ♦ ** < 0 > 
TCF(7»5>-404.1203*10.**<-1> 
TCF (7.6) =-192.869 1*10. **< -1 > 
TCF ( 7 , 7 > = 152 . 4649* 10 . ** < -1 > 
TCF (7. 8 5=0. 

TCF<7»9>=0. 

rCF(8.1 >=479. 1847* 10.** (-3) 
TCF <8.2 >=438 .44 14*10.** (-2) 
TCF(8»3> -- 1 10. 0994*10. **< -2) 
TCF (8.4) =455 . 2585* 1 0 . ** ( 0 ) 

TC F < 8. 3 > *164. 9036*10 . ** ( 0 > 

TCF (8»6> =--561 . 0958*10. **(-1 > 
TCF <8.7>=391 . 1915*10. **<-1 > 
TCF < 8 . 8 > =0 . 

TCF(8.9> =0. 

TCF<9.i >=310. 3278*10. **(-2> 
TCF <9.2 >-742.7 122*10.** (-3) 
TCF ( 9 . 3 ) *- 130 . 4843*10 , ** ( -2 > 
TCF ( 9 * 4 } = 1 10 . 4443*10 ♦ ** < i > 

TCF ( 9 »5> =40 .5648*10. **( 1 > 

TCF <9. A >=-911 . 3308*10. **<-1 > 
TCF (9.7 > =435 . 3711*10. **<-1 > 
TCF < 9 » 8 > = 0 ♦ 

TCF (9.9> =0 . 

TCF ( 10 » 1 ) -• 3 37 ♦ 6271*10 ♦ ** ( -1 ) 

T CF ( 10 . 2 > == 182 . 0053*10 . ** ( -3 > 
TCF' 10.3) --150. 4887*10. **(-2> 
TCF ( 10. 4 >=244 .3852*10. **( 1 > 
TCF ( 10.5 >-391 .81 05*10.** <0> 
TCF < 10 » 6 > = -101 . 6005*10 » ** ( 0 ) 

1 CF < 1 u , ? i .677 . 5431*10 . ** ( -1 > 

T C F ( 1 0 » 8 > •= 0 . 
f C F ( 1 0 . 9 < 0 - 
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K.p f ii»i > 17. 4160*10. **(0> 

•; Cf < 1 ; . 2 > * i 1 05 . 3832*10 . ** < -4 > 
TRI 1 , 3 >*-923. 4837* 10.**<-3> 

[ CM 11 ,41*3604. 8799*10 .**<-11 

TIM 11 ,5 ) '*31215. 7227*10. **(-2> 

TCF < il * 6 ) *-299 . 8243*10 .**< -1 1 

T. Ml 1,7 >*1035. 7422*10. **(-21 

TCF(11»81*-569.67B9*10.**<-21 

TCF (11,91 *2505 . 8594* 1 0 . ** ( -3 1 

RETURN 

END 

ENli* 
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;ucooi-u 


FTN4 ? I 
C 


- 1 TRFM* IS A SUBPROGRAM THAT EVALUATES THE TRANSFER FUNCTION BE- 
C .WEEN THE THERMOCOUPLE WIRE AND THE GAS STREAM. IT OUTPUTS 
('. GAIN AND PHASE INTO THE ARRAY *A a WHICH 18 IN COMMON. 


THIS SUBPROGRAM CALLS THE SUBPROGRAM *SPCY* WHICH DETERMINES 
THE SAMPLING FREQUENCY AS A FUNCTION OF THE ANALYSIS FRE- 
QUENCY . 


CALLING PROGRAM: Y 6024 


FAUL. T. PURPURA - 09/14/82 

e 


SUBROUTINE TRFM(X»Y> 

DIMENSION Z(10)»ZP(10) 

COMMON XIN ( 30 ) » A ( 2 ) » K ( 2 ) > C ( 45 ) » TC ( 4 > » GS ( 1 0 ) » TP ( 10) 
COMMON FRQ 
CALL SPCY(X) 

XN2-A < 1 ) 

N2=XN2 

LAF-0 

Pl=0. 

P2 o. ORIGINAL PAGE W 

P2 0. OF POOR QUALITY 

1X1*0. 

7C2 • 0 , 

PKPOS --0 . 

: ’ K N E ti - 0 • 

HO 10 IZ-1.10 

zaz)-=o. 

;:p< iz>*o. 

CONTINUE 
t 0. 

BELT AT --TP ( 2 > 

CM* TP <4; 

A 1. - f P ( 5 ; 

B TP c 6 ) 

C TP< 7 ) 

E*TP(8> 
f -TP(9) 

8 -TP( 10) 

HO 70 I C - It 32000 
V1*Z( 1 ) 
r 2 ~ Z ( 2 > 

T 3 •• Z < 3 ) 


f •: = 7(4) 

TO -Z(li) 

To 7.(6) 
f/“-Z<7) 

) 0-7(8) 
19-7(9) 
10-7(10) 
f R-SIN ( CN*T ) 
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21 

22 


30 

.<1 

32 


3 3 

4 0 
4 i 


4 2 
4 3 


6 o 
/><■> 


7 0 
/& 


ZP<1 > < .5>*<C*(rO+T2-2*Tl>>/<Al>+Tl 
ZP<2>-< < .5>*<C*<Tl + T3~2*T2>)/<AmT2 
7I ; ‘ ( 3 > » ( .5>*<C*<T2 + T4-2*T3>+F*<TR-T3> >/<AlHT3 
ZP< 4) M ♦5>*<C*<T3 + T5-?*T4H ! <2*F)*<TR~T4> >/<Al) + T4 
ZP<3>--< ,5>*<C*<T4+Td-2*T5> + <2*F>*<TR-T5) >/<Al>+T5 
ZP<6>*<C*lT5-T4>+E*<T7-U> + <F+G>*<TR-TA>>/<AH-B>+T6 
ZP ( 7 > < *5)4c(E*(T4+T8-2BT7> + < 240) *< TR-T4) ) /( 8) +T7 
ZP<8>*< ♦5)*<E*<T7+T9~2*T8)+<2*6)*(TR-T8))/(B)+T8 
ZP(9)-<E*(T8-T9)+Gt(TR-TV>)/(B>+T9 
P1~P? 

P2-Z < V ) 

P3-ZP<y ) 

T-T+DELIAT 
LAP =l..AP + l 

ir (N2-LAP)21»2i*22 
T -0 * 
t AP-0 

no 30 I P - 1 * 9 
2 { IF > -Zir ( IP < 

CONTINUE 
IK(F2)31 731*33 
I T ( F3 33 * 32 * 32 
Z C 1 - • ? 2 
ZC2 ■ i-'o 
i i C 1 0 
>. JC-XIC-2 » 

1 F i A H 0 ( P 1 >~mBS(P 2> ) 3 4 * 3 4 * 7 0 
ZF(ABU(P2> -ABSCPo) )7 0*40*40 
IF < P 2 ) 4 1 * 4 2 * 4 2 
PKNEG-P2 
00 TO 43 
PKP0S--P2 

P K D I F -- p KF'OS-ABS ( F K N E fi ) 

PKQT = PKDIF /ABS< PKNEG > 

I S < .001-PKQT >43*65*75 
IF ( XIC-200 . *XN2 ) 70 * > 66 
PKP08 ( PKF'OS-PKNEG > / 2 . 

Li Cl TO 70 
CONTINUE 
At 1 >~PK POS 
•\NC”XI C/Xf'2 
NC-XNC 
YNC NC 
l.HR-Y’NC«XN2 
PRC XIC-CHR 
FROFRC-ZCl/<ZC2-ZCi> 

Pi I HI.. AO • ( FRC/XN 2 ) i ( -3 '.SO . / 

A '■ 2 ) s-PHSL AO 
RE i'URN 
F'.Nii 
F NH 5 > 
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SUBROUTINE TRFP(X) 


F T N 4 » L 


c 

C * TRFP* CALCULATES THE FOLLOWING PARAMETERS REQUIRED BY THE 
TRANSFER FUNCTION PROGRAM 'TRFM' AND PLACE8 THEM INTO AN 
ARRAY CALLED *TP a WHICH IS PASSED THROUGH COMMON* 

W l . DEI. r A 
C 2. DELTA! 

C 3. SIGMA _ — 

c 4 * CN ORIGINAL PAGE HI 

r: s. ai of POOR QUALITY 

C 6 • B 

c /. n 

C 8. E 
C V. F 
C 10. 6 
C 

C REFERENCE * DYNAMIC GAS TEMPERATURE MEASURING SYSTEM - SYSTEM 
C DESIGN AND TEST K.AN (FR-16381)* FOR DEFINITION OF ABOVE TERMS. 

C 

C THIS SUBPROGRAM CALLS ANOTHER SUBPROGRAM (SPCYi WHICH DETERMINES 
C THE SAMPLING FREQUENCY AS A FUNCTION OF THE ANALYSIS FREQUENCY. 

C 

C CALLING PROGRAM » . A024 

C 

i: PAUL I . PURPURA - 07/20/82 
C 

COMMON X I N < 30 ) > A ( 2 ) > K < 2 > t C < 45 ) f TC ( 4 > » G8 ( 1 0 ) , TP < i 0 ) 

COMMON FRO 

Dll 10 iz*i»io 

TP (17 0 . 

ID CONTINUE 

CALL. SPCY(X) 

X N 2 " A ( 1 / 

UELI A^XIN I 4 > /3 . 
tit- LI AT ~ 1 . / ( XN2*FRQ ) 
b IGMA-X IN < 5 ) /3 . 

C.T : 2 . * 3 . 14154FRU 

A i ~ <X IN ( 6 > **2*DELTA > / ( 3 . *TC < 4 > 4DELTAT ) 

B < X IN < 7 ) **2*SIGMA ) / ( 8 . *TC ( 4 ) 4DELTAT ) 
r. - ( X IN < 6 ) *#2 ) / ( 4 . *DELTA ) 

F. (XIN / 7)**2)/(4.*SIGMA) 

I • < A ( 2 > #SQRT <XIN<6) )«DELTA)/(2.«TC< 4) > 
ti ( A < 2 ) *SURT < X IN< 7 ) ) *SIGMA ) / < 2 . *TC < 4 > ) 

I P » 1 ) --DEL r A 
i P i 2 ) - DEI. TAT 
IPv3> = Si Oil A 
l'P<4: • ; : N 
1 P • > ' A 
f F o t ■ H 
i c 

i F < S i ! F 
i i ( V =F 

I •. l •') ) ~ (•; 

<•: I URN 

END 

END* 
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n r> 


r T N 4 » 


OWQVM* PMC A 

3UbR0UTtNP 'iHMt<^ l |y»»f) OP POOR QUALITY 

C XI NTZ* 18 A SUBROUTINE THAT 1NTE0ARIZE8 ANY FLOATING POINT 
C NUMBER TO AN INTEGAfi AND POWER OP 10. USE OP THZ8 SUBPRO- 
C GRAM ALONG WITH SYSTEM KEYBOARD SUBPROGRAMS PERMIT8 OUTPUT 
C TO THE TERMINAL WITHOUT USING THE PORTRAN FORMATTER* WHICH 
C SAVES ABOUT 4000 WORDS OP PROGRAM MEMORY* 

C 

U IT MAY BE CALLED PROM ANY PORTRAN PROGRAM BY THE FOLLOWING 
C SEQUENCE t 

C 

i: CALL XINT2 ( X * I X * NP > 


THIS PRUGRAM CUMMUNICATE8 TO THE MAIN PROGRAM VIA 2 ARRAYS. 

C THESE ARE A(l) AND K(2). 

('■ 

C IT IS ALSO •SMART* IN THAT IT WILL ROUND UP 1 DIGIT ON THE LAST 
C ITERATION WHEN THE NUMBER BEING INTEGARIZED IS .5 OR GREATER. 

C 

c NOTE ' THE COMMON AREA OF THIS SUBPROGRAM WILL VARY FROM ONE 
C SOURCE LISTING TO ANOTHER* HOWEVER* THE GENERAL SOFTWARE 
C WILL ALWAYS REMAIN UNCHANGED. 

C 

C CALLING PROGRAMS: Y 6024 » Y 6028* iRFM 
C 

C PAUL T, PURPURA 4/6/82. 

C HAF'P V EASIER! 

COMMON X 1 N < 50 5 * C ( 45 ) * TC ( 4 > » GS (1 0 ) » TP ( 10 > * A ( 2 ) *K v 2 > 

COMMON f KG 
N - 0 
NH-0 

iv i J j - 0 

i o 

; AMS i A < 1 i ) 

M): I Fv a- 32000.) 310*502*502 

‘‘■‘i X--X/10. 

Nr •- NP + 1 

./j ru sol 

510 IF (X- 3200. ) 520*520*550 
5/0 1 a-X 

i X - T X 
fix IX 

IMTX-TTXi 550*550*540 
4 0 X - <410. 

UP NP - 1 

k ? ) -Mk 
f I i if' '.HO 
5:'»o I X ;; 

t i >: • r X 
i i X I 1 X ■ * X ■ i 1 X 

"■ ; < . 5-DX i J! X 't 570*600*600 
5,5. IX iXfl 

■ i/O I r ( A i l ) > 6 0 1 * 602 . 602 

; ■> i I a - ~ j X 
■C i.UI-IX 
PF T URN 

r. N D 
~ !•!' i ? 
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1*4 S*«lunt Subroutines 


OfttONAL PAGE It 
Of POOR QUALITY 


NAME 

1 DEFINITION 

GET <N1 >N2»X1 » K2> 

1 Accesses scaled data fro* block ( N1S 
1 channel *N2* and store* it in *X1* and *X2 
1 (real and ieafinarw) 

| 

PUT ( N1 » N2 * XI » X2 ) 

1 Places scaled data froe *X1* and *X2* and 
1 stores it into block *N2* channel k N2* 

1 (real and ieadinarw) 

PUTQ(N1 f MQUAL ) 

1 

1 Puts block oualifiers specified bw the 
1 array •MQUAL* into data block *N1* 

I 

WHAT 

I 

1 Error flee 


96 


i»5 Ke^LiUctfij Subroutines 


oFsmt paqe * 

°* p °0lt quality 


SUBROUTINE 


1 

I KYBD< 04 1 123B » Nl ) 

» 

I 

IKYBD <04151 4B»N1> 

i 

I KYBD <04202 4B»N1 ) 

1 

I 

I KYBD < 04652 38 »31 » Nl ) 

I 


I KYBD< 046523B » 1 1 » Nl ) 
i 
I 
I 

I KYBD < 046523B * 21 > Nl > 
! 


I 

J KYBD <054440B» 1800 > Nl »N2> 
! 


KYB ' D EQUIVALENT! DEFINITION 


I BS Nl 

I 

I 

I CL Nl 
I 

I D Nl 

- f - 

v.f< If. 

I MS 31 Nl 
I 
I 
I 

i MS 11 Nl 
I 
I 
i 

I MS 21 Nl 
I 
I 
I 

I Y 1800 Nl N2 


I 

I SET THE SYSTEM 
I BLOCKSIZE TO 'Nl* 

I 

I CLEAR BLOCK NC.'Nl' 

I 

i DISPLAY BLOCK NO. 

! "Ml* 

! 

I SET THE DISC FILE 
1 POINTER TO FILE 1 » 

I RECORD NO. •Nl* 

I 

I READ NEXT RECORD IN 
I FILE 1 INTO BLOCK 
INO. 'Nl* 
i 

I WRITE BLOCK NO.’Nl* 
•INTO NEXT RECORD IN 
I FILE 1 
I 

i SET VARIABLE PARA- 
METER ’Nl* TO * N2 * 


i 

!KYBD<054440B»1809*Ni » N2 > 


i 

! 


I Y 1809 Nl N2 

t 

* 

i 


t 

i PRINT THE VALUE OF 
! VARIABLE PARAMETER 
I "HI* THRU * N2 * 


I KYBD ( 054440B » 1822 » Nl * N2 » N3 > 
i 


I NY BD < 054 440B * 5838 » Nl ) 
i 

i 


i Y 
i 
1 

I V 

i 

I 


1822 Nl N2 N3 1 KEYBOARD VERSION OF 
I * PUT ’ 

I 

5838 Nl I READ DISC TEXT BUF- 

I FER NO. "Nl" INTO 
i COKE 


iK YBD <0544406* 58 19»N1 
1 


I Y 581= Nl 

I 

I 


I WRITE TEXT BUFFER 
I MESSAGE NO. •Nl* ON 
I THE TERMINAL. 


C-Z 
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Text Buffers - A listing of all applicable text buffers folic 
this page* 
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omarini page n 

y 5803 1 or rooR QUAint 

WARNING -- CLEAR NEW DISC BUFFERS 

/LSi 

WO 1 . 

Sto program soft keysSi 
Sf1*graphics Si 
Sf2 s aiphaSi 

Sf3 s set page full busy % 

Sf4=clear page full busy Si 
l ?f8 s !Tiske copy** 

^4f1a1k6LMdcfs Si 

Stlf1a2k6LMddet Si 

S**f1a3kSL*»t1cSi 

Stlf1a4k5L**t0cSi 

Stlf1a8k2Ltt Si 

W»Si 

SOI Si 

S Si 

s/*s« 

sm 

^MEASURED VALUE OF GAMMA [(FT*«3/2)/SECl :Si 
S <mntssa> <pwr 10> Si 

S/«S* 

S04Si 

4Ji 
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JJJ*®****- PAGE IS 
<*POORQUAUTY 


^THEORETICAL VALUE OF GAMMA [(FT**3/2)/SECl : 
S <mntssa> <pwr 10> % 

S/* 4 * 

SO 7% 

^LINEARIZATION IS NOW OCCURRING 4 * 

SON THE FOLLOWING DATA RECORDS: 4 * 


<* 


S/* 4 * 


S08i» 

SBAD DATA AT BELOW FREQ. % 

SDATA POINT DISCARDED. <* 

S <freq> <pwr lOH 
S/* 4 * 

S10 4 * 

STHE MEASURED TRANSFER FUNCTION CURVE DID NOT CROSS ANY 4 * 
STHEORETICAL TRANSFER FUNCTION CURVE BETWEEN .5 AND 1.5 4 * 
SGAMMA , OR HAD BAD COHERENCE. A MEASURED VALUE OF GAMMA 4 * 
SWAS NOT OBTAINED. CHECK YOUR DATA, CORRECT THE PROBLEM 4 * 
SAND TRY AGAINM5- % 

S/* 4 * I 

S 


Y 5803 8 


S?S^ AL PAGE f$ 
°p POOR QUALITY 


WARNING — CLEAR NEW DISC BUFFERS 

/LSi 

^ 90 % 


SPRINT PARAMETER VALUES? * 

S"YES“ FOR ALL, LINE # FOR SINGLED 
W*Si 


S92Si 
S % 


CENTER LINE # TO EDIT, ! iO TO STDP9i 

y/*% 


*f Si 

SLINE NUMBER?** 

W*Si 

^ 94 % 

*f S» 

SPRINT THE REST OF THE PARAMETERS? Si 
W*% 

S 



ORIGINAL P AO** 
OF POOR QUALITY 


Y 5803 9 

WARNING - CLEAR NEW DISC BUFFERS 
/LS» 

497S. 

^INVALID INPUT % 

*»/•% 

S64* 

‘fSETUP NO.? (1-100)\ % 

SRECALLSi 

W*<* 

S759i 

SSAVE INTO % 

Wt% 

4 
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Y 5803 10 

WARNING - CLEAR NEW DISC BUFFERS 

/LS 

SOU 

S S 

S/*S 

SQ8S 

s s 

SALL DONE! OS 

S/*S 

S03S 

SS*ddetS 

SAALPHA-NUMERIC DISPLAYS 

S/*S 

SI OS 

SS*dcfsS 

SGGRAPHICS DISPLAY S 


s/*s 


ORfGflVAL 
°P POO#? 


PAOE J9 

Quality 


S06S 

SSYSTEM IS EVALUATING TRANSFER FUNCTION. THE 2 VALUES SCROL- S 
SLING UP THE SCREEN ARE THE INSTANTANEOUS FREQUENCY AND GAM- S 
SMA INDEX. THE GAMMA INDEX IS NOT DISPLAYED WHEN THE SYSTEMS 
fIS EVALUATING THE TRANSFER FUNCTION FOR A MEASURED VALUE OF S 
•GAMMA. S 
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3 ... . .. . . 


ORIGINAL PAOE JJ 
OP POOR QUALITY 

S <!»umber> <pwr 10>% 

S02% 

^SYSTEM IS READY TO ACQUIRE DATA.* 

■» % 

SPRESS "CONTI HUE" TO START DATA ACQUISITIONS 
S11% 

^END OF DATA ACQUISITION#. % 

H 
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i S803 50 

WARNING •• CLEAR NEW DISC BUFFERS 
/L% 

SOI* 

S(RMS DEG-F) % 

S/*% 

SO 2* 

S(RMS DEG-F)/SQRT-H2 * 

S/»% 

SO 3* 

S(MEAN-S8R DEG-F)/HZ * 

S/*% 

SO 4* 


°* POOR QUALITY 


‘rtMEAN-SQR DEG-F)/HZ - dBSi 

W*Si 

SO 5% 

S(DEG-F) Si 
W*Si 

STHE PLOT CODE PRESEHTLY ENTERED IS ILLEGAL 1 Si 
S Si 

SPLEASE CORRECT THIS CONDITION BY ENTERING Si 
*»A LEGAL PLOT CODE FOR EDIT NO. 40. Si 
Si 
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OfttOINAL PAQtff 
OF POOR QUALITY 

^THAHK YQUia % w 

W*% 

S29<* 

S % 

**29 LARGE OR SMALL MIRE T/C? % 

S (0-SMALL, 1 -LARGE )\% 

W»% 

S3Q 1 * 

*f % 

S30 EVALUATE (LARGE WIRE/SMALL MIRE) * 

S T/C H(f )? (0-H0, 1*YES)\ % 

W*% 

S 


PO0tf ;j 

V 5803 51 

WARNING - CLEAR NEW DISC BUFFERS 
/L% 


PAQCif 

*^Sj*urr 


sm 

s % 

Sit T/C CODE ( 0 »Pt/ 6 XRh, 1 «Pt/ 30 XRh)?Si 
S CODE: \ % 

W*% 

St 4 Si 

S Si 

SI 4 DIAMETER OF SUPPORT WIRE CINCHES)? Si 
S < dmtr > <p*r 10 >Si 
S\ % 

S/*% 

S 22 Si 

S Si 

5 22 MEAN GAS PRESSURE (PSIA)?S» 

S < pres > <pwr 10 >Si 

S\ Si 
S/*Si 
S 23 S. 

S Si 

5 23 MACH NUMBER? Si 

< numb > <pmr 10 >Si 


OfFOOUQUAUW 


i\ % 

S5QSi 
V/ % 

SI 3% 

S Si 

SI 3 LENGTH OF SMALLER WIRE (INCHES/ 2)? Si 
S <length> <pwr 10>% 

S\ S» 

S/*Si 

S15Si 

S Si 

SI 5 DIAMETER OF SMALLER WIRE (INCHES)? Si 

S < dmtr > <pwr 10>Si 

S\ Si 

S/*Si 

S12Si 

S Si 

SI 2 LENGTH OF SUPPORT WIRE (INCHES)? Si 
S <length> <p*r 10>S» 

S\ Si 
S/*Si 
S21Si 
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OftXaNAL PACK a 
TOO* QUALITY 


i % 

S21 MEAN GAS TEMPERATURE <DEG-F>?Si 
S < temp > <pwr 10>% 

S\ % 

S/*% 

S28S. 

S % 

S28 FREQUENCY INCREMENT? % 

S < incr > <pwr 10>% 

V\ % 

W«% 

*>24* 

524 FUEL TO AIR RATIO CF/A)? % 

S < rtio > Cpwr 10>S» 

S\ % 

W*Si 

S99* 

SDYNAMIC TEMPERATURE MEASUREMENT - Si 
^THEORETICAL H(f) CRITERIA % 

S % 

W«S» 

S25Si 

525 THEORETICAL DELTA-F SETTING? Si 

4 < at tg > <pwr 10>Si 


OMBMAL MQE ■ 
Of POOR QUALITY 


m'U/ Ov * 


i\% 

w«% 

*27% 

% % 

*27 ENDING FREQUENCY?* 

* < freq > <p#r 10>% 

V\ % 

*/*% 

*26* 

* % 

*26 STARTING FREQUENCY?* 
* < freq > <pwr 10>% 

*\ * 

*/*% 


* 


no 


oMNMLMMa 

y S 803 52 <* poor quality 

WARNING - CLEAR NEU DISC BUFFERS 
/L% 

sm 

H % 

*»10 CHANNEL “A" AMPLIFIER GAIN?* 

S < gain > <pwr 10>Si 

S\ Si 
S/*Si 

sm 

S % 

S11 CHANNEL "A" record level?% 

S < levl > <pwr 10>l 

S\ Si 

S/*Si 

S12S. 

S Si 

SI 2 CHANNEL M A M DC OFFSET? Si 

S <offset> <pwr 10>Si 

S\ Si 

S/»Si 

S20Si 

S Si 

S20 CHANNEL "B" AMPLIFIER GAIN?Si 


in 


OMttNAL PAQB • 

4 < gain > <pwr 10>4 omkx* quality 

4\ 4 

4/*4 
4214 
4 % 

421 CHANNEL "B" RECORD LEVEL? 4 * 

4 < levl > <pwr 10>4 

4\ 4 
4/*4 
4224 
4 4 

422 CHANNEL "B" DC OFFSET? 4 
4 <offset> <pwr 10>4 

4\ 4 
4/*4 
4304 
4 4 

430 CHANNEL M C M AMPLIFIER GAIN?4 

4 < gain > <pwr 10>4 

4\ 4 
4/ *4 
4314 

4 4 

431 CHANNEL "C" RECORD LEVEL? 4 
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. i 


OJKHNAL page 19 
°P POOR QUALITY 


S < levl > <pwr V} 

S\ * 

S/t* 

S32* 

S % 

S32 CHANNEL "C" DC OFFSET? * 

S <offsct> <pwr 10>* 

S\ * 

W** 

SO 5% 

S * 

505 ADC DELTA-F SETTING? * 

S < sttg > <pwr 10>% 

S\ * 

W*S» 

S99* 

SDYNAMIC TEMPERATURE MEASUREMENT - * 
^MEASURED HCf) CRITERIA* 

S * 

W*% 

S06* 

S * 

506 NUMBER OF THRU-PUT RECORDS * 

S DESIRED?\* 


w*% OF POOR QUALITY 

% 07 % 

% % 

SQ7 NUMBER OF POWER SPECTRUM AV- * 

H ERA6ES D£SIRED?\ % 

W*% 

S09% 

s % 

S09 NEW "GAMMA" AND COMP. SPECTRUM? 1 * 

% (G s NQ, 1=YES)\ % 

%/♦% 

%08% 

S t 

S08 STARTING RECORD NUMBER? (70,73,76% 
S ETC . )\ % 

S/*% 

S 
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ORIGINAL PAGE 19 
OF POOR QUALITY 


Hi? 


Y 5803 53 

WARNING - CLEAR NEW DISC BUFFERS 
/L* 

SI OS. 

S * 

S10 PLOT UNCOMPENSATED OR COMPENSATED* 
S DATA? (0*UNCOMP, 1«CQMP>\% 

S/»* 

S2Q* 

S * 

S20 PLOT AVERAGED OR INSTANTANEOUS * 

S DATA? (0*AVG, 1»INST>\ * 

S/«* 

S21* 

* 

St IF DATA IS INSTANTANEOUS:* 

S» * 

St 21 STARTING RECORD N0.?\ * 

S/«* 

S22* 

St * 

S* 22 NO. OF REC0RDS?\* 


S/»* 

S30* 


ORIGINAL page If 

SfWOR QUALITY 


S % 

S30 PLOT FULL OR PARTIAL TIME RANGE? S. 
S (0-FULL, 1*PARTIAL)\ S» 

S/t<* 

S99S* 

SDYNAMIC TEMPERATURE MEASUREMENT - S. 
^PROCESSING AND PLOTTING CRITERIA 1 * 

S % 

S/t<* 

S24S* 

St % 

S* 24 NO. OF "SMOOTHS" TO PERFORM ON* 
St TIME DATA?\ S* 

S/*S» 

S2SS* 

S* S* 

S* 25 PLOT TIME 4 FREQ DATA? CO-TIMES* 

S* ONLY, 1-TIME 4 FREQ)\ S* 

S/*S* 

S31S* 

S*«*ft»*t»****ft«»*ft*fft»t»«»t***»»*ft**»Si 

St IF A PARTIAL RANGE IS DESIRED: S» 

S* S, 

St 31 STARTING TIME?S* 
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ORIGINAL PAGE 19 
OF POOR QUALITY 


S* < time > <pwr 1fl> Si 
S» \% 

S/#Si 
S32Si 
St Si 

St 32 ENDING Tim? 1 * 

S» < time > <pwr 10> % 

St \% 

S/*< * 

S23S. 

St % 

S* 23 THRESHOLD TO CLEAR ON FREQ DA-Si 

St TA IN "dB"?\Si 

S/*S» 

S26<5» 

St IF DATA IS AVERAGED: Si 
S» Si 

St 26 PLOT LARGE OR SMALL WIRE DATA? 1 * 

St (0*SMALL, 1*LARGE)\ Si 

S/»S» 

S 


ORIGINAL PAGE V 
OP POOR QUALITY 


Y 5803 54 

WARNING - CLEAR NEW DISC BUFFERS 
/L* 

s m 

s % 

S08 NEW GAMMA AND NEW COMP. SPEC.? % 
S CO-NO, 1*YES)\ % 

S/t* 

SI 3* 

S S 

51 3 OLD GAMMA BUT NEW COMP. SPEC.? % 
S CO-NO, 1 -YES)\ S 

S/«* 

SI 4*5» 

S % 

51 4 GAMMA VALUE: * 

S < valu > <pwr 10>% 

S\ % 

S/*% 

S29S 

S % 

S29 EVALUATE 1QmiL/3miL HCf )? CO-NOSi 
S 1 -YES)\% 

S/*% 
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ORIGINAL PAGE !• 
OF POOR QUALITY 

*35* 

s % 

S35 PLOT FULL OR PARTIAL FREQ RANGE? * 

S (0-FULL, 1 -PARTI AL)\ * 

S40* 

* % 

MO ENTER PLOT CODE PER BELOW. (FREQ % 

S DATA 0NLY>\ l ii 
W*% 

M1% 

S % 

*» 1-(RMS DEG-FH 
S 2- (RMS DEG-F)/SQRT-HZ* 

*» 3*(MEAN-SQR DEG-FJ/HZS. 

* 4=(MEAN-SQR DEG-FJ/HZ - dB % 

S36* 

M IF A PARTIAL RANGE IS DESIRED: % 

*»* % 

M 36 STARTING FREQ?* 

M < freq > <pwr 10> * 

S* \* 


aagML MM M 
£kE»QOAUTY 


V I* ■ 


S/t* 

S37* 

St % 

St 37 ENDING FREQ?% 

S« < freq > <pwr 1Q> fc 

St \% 


S/t% 

S 


2 * 0 S YSTfc 

v h Ufi C dfioq 5 , 

2.1 Keyboard r roarae End Codes 


ffg w^ wate 

W POOR QUALITY 


i JBUF < 1 ; 


User end code ■Mi* 
User end code *N2 ( 
(Jeep end code *N3* 
U*er end code *N4* 
User end code *N5' 
User end code *N6* 


i JBUF t 2 ) 


i JBUF ( 3 ; 


I JBUF < 4 > 


{ JBUF<5> 


I JBUF ( i ) 


2.2 Dat; Block Qualifiers 


IHQUALU* 1 

i 

t & 

block 

blocks iiie 



i MOUAL ( 2 i 1 

t i . 

Data 

block 

coordinate code 



1 MQUAL ( 3 ) I 

t ! 

Data 

block 

cal ibrator 



I HQMAL ( 4 ; \ 

Data 

block 

freouency code 



i _ — » — i 

i MQUAL (0 ) i 

Dfiitli 

i»] uek 

status 



i 

2.3 T/C Ui 

re S 

Sii^ani Lauaiior* Coefficients 




i ARRAY 


DEFINITION 


I C<1> 


! C < 45 ) 


2.4 N.fi.o Te®F*?iatuPe Eouation Coefficients 


ircrUfi) I 

i t i 

i > I 

i \ i 

i v i 

i 1 C r <1 1 ? V ) J 
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2-3 JUipuI Array 


orroMQWurr 


m 


XIWI 1 > 

“1 

1 

. f , 

Edit 

No. 

li 

- 

Thermocouple cod# 

XINI 2 > 

* 1 

4 

* 

. t > 

Edit 

No* 

29 

- 

car*# or small wire TC flag 

XINI3) 

1 

• I . 

Edi t 

No. 

24 

- 

Fual to air ratio 

XIH(4> 

1 

i 

Edit 

No. 

12 

- 

Length of support wire 

XIN<5) 

• 1 4 

i 

1 

Edit 

NO. 

13 

- 

Length of smaller wire 

/;h(6) 

1 

1 

_ I 

Edit 

No. 

14 

- 

Diameter of support wire 

XIN(7> 

* » 
1 

Edit 

No. 

15 

- 

Diameter of smaller wire 

X I N 1 8 ) 

( 

1 

Edit 

No. 

21 

- 

Heart mat temperature 

XIN< 9 > 

■" 1 
1 

_ 1 , 

Edit 

No * 

22 

.... 

Heart Hat pressure 

XINUO) 

i 

i 

Edit 

No « 

23 

- 

Mach number 

XINIli) 

* 1 

i 

_ i 

Edit 

No . 

25 

- 

ADC delta-E sett ins I theoretical ) 

XINI 12) 

* I 

i 

i 

Edit 

No. 

26 

- 

Starting frequency 

XIN( 13) 

I 

i 

... t 

Etii l 

No . 

27 

- 

Frequency increment 

XINI 14) 

*" i 

i 

Edit 

No • 

05 

“ 

ADC Del ta-F setting (measured) 

XIN< 15/ 

“ i 

i 

Edit 

No * 

10 

- 

CHI A amplifier guilt 

XIN ( 16 ) 

i 

_ i 

Edit 

hi* . 

1 1 

* 

CH; (> tecord level 

XIWI 17) 

• I 

i 

_ ♦ 

Edit 

No * 

12 

- 

CKJ A DC offset 

i XIN (18) 

~ i 

1 

* 

Edit 

No ♦ 

20 

- 

CH t B amr- 1 i If ier gain 

i XIN( 19 ) 

~ i 

i 

Edit 

No ♦ 

21 

- 

CHI B tecord level 

i XIN (20) 

i 

_ i 

Edit 

No. 

-! > 


CHI B DC offset 

i XINI21) 

i 

Edit 

No . 

30 

- 

CHJ C amplifier gain 

! X INI 22) 

1 



3 1 

- 

CHI C record level 

: X INI 23) 

I 



32 


C.H: C DC. offset 

, XINI 24) 

I 



14 

" 

Gaaiii mi va 1 ut 

i XIN I 25 ) 

i 

Edit 

No. 

28 

- 

Et.diinj f ituaeitL'y 

1 a I M i 2 6 ) 

! _ _ 

l 

* 

Not 

u^U 




XIN' 27) 

i 

Not 

yyttU 




XIN I 28) 

— } 
i 

Not 

u i* y * J 




X INI 29 ) 

; 

Not 

U*£«u 




A 1 IM i w ' 


it o i 
















ORIGINAL PAGE « 

OP POOR QUALITY 

Edit*. rafaranced Proa XINC14) to XJN<24) mppI* to ntnurdi 
H< f) criteria* All othar adit* referenced apply to thaoret' 
a col H(f> criteria. 


2*6 { he ruji/cuuf' le Wire Faraaeterb ! 

i , 

iTCii; i T/C wire density (Rho) I I 

I ( ! 

ITC<2> 1 1/C Thermal conductivity (k> I 

i >— — - -i ;• 

iTC<3) I Specific heat <Cp) I ] 

1 — — — — - — — — _ J | i* 

i T C ( 4 ) I Thermal diffusitw (delta) I 

I 1 f 
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ORIGINAL PAGE 18 
OF POOR QUALITY 


|v 

|--i 


I 





i ' 



2.7 


2.7 Gas 

i ... 

• m .**• «. • - 

ff tHrtUO Fa*Mf®ete r s 

p®qk w 

OF POOR QUALITY 

j 

1 

I GS ( 1 > 

I 

i 

i Gas strea® density (Rho) 


1 

I GS ( 2 ) 

1 

1 Gas strea* ther-®al conductivity (K) 

i .... . - ....... .: 

i 

IGSC3) 

t Gas strea® specific heat (Cp) 


I 

1 GS < 4 ) 

l Specific heat ratio <Y) 


t — 

!8S(5) 

f 

1 Viscosity (Mu) 


1 

i GS ( 6 ) 

I 

t Sonic Velocity (c) 


f 

iGS(7) 

i Kinetic viscosity CSQRT.(G)3 


i — — — 
i GS < 3 } 

i 

i F' i andtl Dumber (PR) 


i - — — 
1 GS ( 7 ) 

1 Mean Sss velocity (U) 


j — — 

1 GS ( 10 ) 

J Aerodynamic parameter (Gamma) 



i 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


2.8 Finite clement Coefficients 

j i — 


1 TP € i > 

I 

i 

K( f ) 

coefficient 

(DELTA) 


1 

ITP<2> 

t 

. „ 
I 

i 

* 

H(f ) 

coefficient 

(Delta T) 


1 TP( 3) 

! 

**“ i “ 

i 

i - 

H(f ) 

coefficient 

(delta) 


I 

1 TP ( 4 ) 

1 

^ 1 
t 

i 

! - 

H< f > 

coefficient 

(Cn) 


| - 

I TP ( 5 ) 

i 

1 

l 

H(f ) 

coefficient 

(A) 


i 

1 TP ( 6 ) 

— i 
1 

H(f ) 

coef f icient 

(B) 


1 

1 TP ( 7 ) 

— i • 
1 

H< f ) 

coef f i icent 

<C) 


! 

i TP < 8 ) 

„ J . 
1 

1 

H(f > 

coef f icient 

< E ) 


j — — ~ — - 

i TP (9 ) 

* , . , 

I ■ 

i 

H ( f ) 

coefficient 

( F ) 


i — 

ITP(IO) 

i * 

i 

H < f ) 

coef f icient 

(6) 
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ORIGINAL PAGE 18 
OF POOR QUALITY 


2*9 Finite Element Coefficients 


* 

l '•* 

ARRAY 

i 

DEFINITION 




Z<1> 

“** t ’ 

i 

„ i , 

Hvf) 

coefficient 

<Z1) 



Z<2) 

*** 1 « 
i 

H( f ) 

coefficient 

( Z2) 



Z<3> 

*" I 
1 

i 

H ( f ) 

coefficient 

(Z3) 



Z ( 4 ) 

i 

— t 

H(f ) 

coefficient 

( Z4 ) 


• 

Z<5> 

i 

♦ 

i 

• 

H< f ) 

coefficient 

(Z5) 


t - 

Z(6) 

" i 

\ 

_ i 

H(f ) 

coefficient 

\Z6) 



Z(?) 

I 

1 

— i 

H ( f ) 

coefficient 

( Z7 ) 



Z(8> 

i 

i 

— t 

H< f ) 

coef f icient 

(Z8) 



Z ( 9 ) 

i 

i 

H < f ) 

coefficient 

( Z9 ) 


i - 

z<io> 

— i 

i 

- i 

H< f ) 

coef f ieierit 

(Z0> 



2 * 10 Finite Element Solutions 


i 

ZF ( 1 ) 

! H ( f ) 

J 

Node 

i 

Finite 

Element 

Solution 

< ZF’l ) 

i 


ZP < 2 > 

| ----- 
i H ( f ) 

Node 

*L 

Finite 

Element 

Solution 

<ZP2) 


1 "" 

M 

~n 

04 

l H(f) 

Node 

3 

Finite 

Element 

Solution 

( ZF’3 ) 



Z P ( 4 > 

i H ( f ) 

J 

Node 

4 

F inite 

Element 

Solution 

< ZP4 ) 

1 

i 

ZP<5) 

1 H < f ) 
1 

Node 

5 

F inite 

Element 

Solution 

< ZF5 ) 



ZP ( 6 ) 

1 H< f ) 

Node 

6 

F inite 

Element 

Solution 

< Z P 6 ) 

. — •— — — — •« j 


ZP ( 7 ) 

i H < f ) 
1 

Node 

7 

F ini te 

Element 

Solut ion 

< ZP7 ) 



ZP < 8 ) 

i h< n 

i 

Node 

8 

Finite 

Element 

Solution 

< ZF'8 ) 



ZP < 9 ) 

1 

i H ( f > 

i 

Node 

9 

Finite 

Element 

Solution 

( ZP9 > 

» 

i 

i 

i - 

ZF< 10) 

1 n ( F ) 

Node 

0 

F inite 

Element 

Solution 

(ZPO) 

1 
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2*11 Scratch Ar»c*vi*> 


OfBQMAL PAOC « 
W* POOR QUALITY 


I ARRAY 1 DEFINITION 

, j 

I A(l) t Fass intermediate data through COMMON 

I 1 

i A(2) : 

I 1 

i K(i> t 

I 1 

1 K < 2 ) I 
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3.0 DATA ASSIGNMENTS 

3.1 Variable Para* As&itinaeots 


ORIGINAL PAGE is 
OP POOR QUALITY 


} VP # 

1 

MODE 

i 

. t 

DESCRIPTION 




1 

100 TO 14 

1 

- 

1 

i 

SCRATCH 




1 

115 TO 18 

1 

- 

• 

NOT USED 




1 

1 19 

1 


* 

i 

EDIT FLAG 




1 

1 20 

1 

- 

i 

EDIT BUTTON 

FLAG 



1 

121 TO 38 

1 

- 

i 

NOT USED 




1 

1 39 

1 

- 

i 

SET-UP NO. 




1 

140 TO 52 

t 

- 

i 

NOT USED 




1 

1 53 

1 

- 

i 

EDIT PHASE - 

LABEL NO. 



1 

1 54 

1 


i 

EDIT PHASE - 

TEXT BUFFER NO 

4 

1 

i 55 

1 

- 

i 

EDIT PHASE - 

KEYBOARD 

NO. 


1 

156 TO 73 

1 

- 

i 

NOT USED 




1 

1 74 

» 

1 

- 

i 

SCRATCH 




1 

175 TO 179 

i 

- 

i 

NOT USED 




1 

I 180 

1 

- 

i 

SCRATCH 




1 

1181 TO 1861 

- 

1 

NOT USED 




i 

1 187 

1 

- 

i 

SCRATCH 




1 

1 188 TO 1971 

“ 

i 

NOT USED 




1 

i 198 

1 

1 

i 

AUTO SEG - 

QUESTION 

NO. 

30 

1 

i 199 

1 

1 

i 

AUTO SEG - 

QUESTION 

NO. 

11 

1 

1 200 

« 

1 

4 

i 

AUTO SEG - 

QUESTION 

NO. 

29 

1 

i 201 

i 

1 

i 

AUTO SEG - 

QUESTION 

NO. 

24 

1 

1 202 

i 

1 

i 

AUTO SEG - 

QUESTION 

NO. 

24 

1 

1 203 

i 

1 

i 

AUTO SEQ - 

QUESTION 

NO. 

12 

1 

1 204 

1 

1 

i 

AUTO SEG - 

QUESTION 

NO. 

12 

1 

I 205 

i 

1 

i 

AUTO SEG - 

QUESTION 

NO. 

13 

} 

i 206 

1 

1 

i 

AUTO SEQ - 

QUESTION 

NO. 

13 

i 

l 207 

i 

1 

• 

1 

AUTO SEG - 

QUESTION 

NO. 

14 

I 

! 20S 

i 

1 

i 

AUTO SEG - 

QUESTION 

NO. 

14 

i 

1 209 

i 

1 

i 

AUTO SEG - 

QUESTION 

NO. 

15 

i 

1 210 

1 

1 

i 

AUTO SEG - 

QUESTION 

NO. 

15 

I 

1 211 

1 

4 

i 

AUTO SEG - 

QUESTION 

NO. 

21 

I 

1 212 

i 

l 

i 

AUTO SEG - 

QUESTION 

NO. 

21 

i 

1 213 

i 

l 

i 

AUTO SEQ - 

QUESTION 

NO. 

22 

i 

i 214 

1 

l 

i 

AUTO SEG - 

QUESTION 

NO. 

27 

i 

i 215 

1 

l 

i 

AUTO SEG - 

QUESTION 

NO. 

23 

• 

i 216 

! 

i 

i 

AUTO SEG - 

QUESTION 

NO. 

23 

i 

1 217 

t 

i 

4 

X 

i 

AUTO SEG - 

QUESTION 

NO. 


i 

218 

1 

i 

i 

AUTO SEG - 

QUESTION 

NO. 

25 

1 

i 219 

1 

1 

i 

i 

AUTO SEG - 

QUESTION 

NO. 

26 

i 
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\ 

VF 4 

t MODE 

1 DESCRIPTION 





220 

1 1 

1 AUTO 

SEQ 

- 

QUESTION 

NO* 

26 


221 

t 1 

1 AUTO 

SEO 

- 

QUESTION 

NO. 

27 


222 

1 1 

1 AUTO 

SEQ 

- 

QUESTION 

NO. 

28 


223 

1 1 

1 TIME 

MAP 

- 

QUESTION 

NO. 

05 


224 

t 1 

1 TIME 

MAP 

- 

QUESTION 

NO. 

05 


225 

i 1 

1 TIME 

MAP 

- 

QUESTION 

NO. 

10 


226 

1 1 

1 TIME 

MAP 

- 

QUESTION 

NO* 

10 


227 

1 1 

1 TIME 

MAP 

- 

QUESTION 

NO. 

11 

i 

228 

1 1 

1 TIME 

MAP 

- 

QUESTION 

NO. 

11 


229 

i 1 

1 TIME 

MAP 

- 

QUESTION 

NO. 

12 


230 

i 1 

1 TIME 

MAP 

* 

QUESTION 

NO. 

12 


231 

1 1 

i TIME 

MAP 

- 

QUESTION 

NO. 

20 


232 

i 1 

1 TIME 

MAP 

- 

QUESTION 

NO. 

20 


233 

1 1 

1 TIME 

MAP 


QUESTION 

NO. 

21 

i 

234 

1 1 

1 TIME 

MAP 


QUESTION 

NO. 

21 


235 

i 1 

» TIME 

MAP 

- 

QUESTION 

NO. 

22 


236 

1 1 

i TIME 

MAP 

- 

QUESTION 

NO. 

22 


237 

i i 

! TIME 

MAP 


QUESTION 

NO. 

30 


238 

i 1 

1 TIME 

MAP 

- 

QUESTION 

NO. 

30 


239 

i l 

1 TIME 

MAP 

- 

QUESTION 

NO. 

31 


240 

i l 

1 TIME 

MAP 

- 

QUESTION 

NO. 

31 


241 

i i 

1 TIME 

MAP 

- 

QUESTION 

NO. 

32 


242 

i l 

1 TIME 

MAP 

- 

QUESTION 

NO. 

32 


243 

i l 

1 TIME 

MAP 

- 

QUESTION 

NO. 

14 


244 

i i 

l TIME 

HAP 

- 

QUESTION 

NO. 

14 


245 

i l 

i AUTO 

SEQ 


QUESTION 

NO. 

27 

1 246 ! 1 

1247 TO 2581 - 

i AUTO SEQ 
I NOT USED 

■*“ 

QUESTION 

NO. 

27 

i 

255 

i 1 

i TIME 

MAP 

- 

QUESTION 

NO. 

07 

i 

260 

i i 

1 TIME 

MAP 

- 

QUESTION 

NO. 

08 

i 

261 

i i 

! TIME 

MAP 

- 

QUESTION 

NO. 

09 

i 

262 

i i 

i TIME 

MAP 

- 

QUESTION 

NO. 

13 

i 

i 

263 

i i 

i TIME 

MAP 

- 

QUESTION 

NO. 

14 

1 

264 

i 2 

1 TIME 

MAP 

- 

QUESTION 

NO. 

10 

\ 

265 

i 2 

1 TIME 

MAP 

- 

QUESTION 

NO. 

20 

i 

266 

1 *2 

i TIME 

MAP 


QUESTION 

NO. 

21 

| 

rt / 

*2 0/ 

1 4 

1 TIME 

MAP 

- 

QUESTION 

NO. 

22 

i 

268 

; 2 

1 TIME 

MAP 


QUESTION 

NO. 

23 

* 

265 

1 2 

i TIME 

MAP 


QUESTION 

NO. 

2 4 


! 


i 
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1 VP 1 

1 


I 

DESCRIPTION 




{ 270 

t 

1 

2 

i 

TIME 

MAP 

- 

QUESTION 

NO. 

25 

1 271 

1 

2 

i 

TIME 

MAP 


QUESTION 

NO. 

30 

i 272 

1 

2 

i 

TIME 

MAP 

- 

QUESTION 

NO. 

31 

! 273 

1 

2 

i 

TI* E 

MAP 

- 

QUESTION 

NO. 

31 

i 274 

1 

2 

i 

TIME 

MAP 

- 

QUESTION 

NO. 

32 

i 275 

1 

2 

i 

TIME 

MAP 

- 

QUESTION 

NO. 

32 

i 276 

J 


i 

TIME 

MAP 

- 

QUESTION 

NO. 

35 

i 277 

1 

2 

i 

TIME 

MAP 

- 

QUESTION 

NO. 

36 

1 278 

l 


i 

TIME 

MAP 

- 

QUESTION 

NO. 

36 

1 27? 

t 

2 

i 

TIME 

MAP 

- 

QUESTION 

NO. 

37 

1 280 

1 

2 

i 

TIME 

MAP 

- 

QUESTION 

NO. 

37 

I 261 

1 

2 

i 

TIME 

MAP 

- 

QUESTION 

NO. 

40 

1 282 

i 

2 

i 

TIME 

MAP 

- 

QUESTION 

NO. 

26 

1 282 

1 

1 

i 

TIME 

MAP 

- 

QUESTION 

NO. 

06 

i 284 TO 479 

i 

- 

l 

NOT 1 

USED 





i 480 

1 


I 

SCRATCH 





12000 TO 

1 

- 

1 

SCRATCH 





! 2008 

i 


! 







12009 TO 

1 

- 

» 

i 

NOT 1 

USED 





1 2029 

1 


1 







1 3000 

1 

- 

1 

SCRATCH 





i 3001 

1 

- 

I 

SCRATCH 





13002 TO 

i 

— 

1 

NOT i 

JSED 






i 3014 I I 
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3*2 File 1 Record Assignments. 


OfttCNNAL PAGE IS 
OF POOR QUALITY 


I REC. 

i 

NO. 

I ASSIGNMENT 



f 

t 

1 0 

TO 

2 

i SCRATCH AREA 



1 

1 3 



1 POUER SPECTRUM 

- 

SHALL WIRE T/C 

1 

i 4 



t POWER SPECTRUM 

- 

LARGE WIRE T/C 

1 

1 5 



t POWER SPECTRUM 

- 

REAL PART CR0S8 POWER 

<1)1 

1 6 



i POUER SPECTRUM 

- 

IMAG PART CROSS POUER 

<1)1 

1 7 



I MEASURED H(f> 

- 

(LARGE WIRE ) / ( SMALL WIRE) 

1 

1 3 



1 COHERENCE FUNCTION 

- 

<Y**2> 

1 

l 9 



1 THEORETICAL rl<f> 

- 

(LARGE WIRE ) / ( SMALL WIRE) 

< 2 ) i 

1 10 

TO 

29 

1 THEORETICAL H<f) 

- 

(SMALL WIRE)/(GAS STREAM) (3) 1 

130 

TO 

49 

1 THEORETICAL H<f> 

- 

(LARGE WIRE ) / ( GAS STREAM) (3) 1 

150 

TO 

69 

1 THEORETICAL H(f) 

- 

(LARGE WIRE ) /< SMALL WIRE) (3) 1 

170 

TO 

438 

1 DISC THROUGHPUT 

- 

RAW TIME DOMAIN DATA 

1 


(1) - STORED AS DOUBLE PRECISION 
< 2 > - COMPENSATION SPECTRUM 

<3> - H( f ) CURVES GOING FROM *5 GAMMA TO 1.5 GAMMA IN INCREMENTS 
OF .1 GAMMA. 
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,viAuO ’ ' 

4.1 T/C wire parameters - Pt/6XRh and Pt/30%Rh respectively. 

4.1.1 Density <LB8/IN**3) 

RHO * 0.740 
RHO -- 0.632 

4.1.2 Thereal conductivity (BTU/FT-8EC-DEG R) 

K<T) “C 1/36003C3.8926E+01 + < 1 .8746E-03) <T> 

+ (2.1226E-06) <T**2> - < 2 . 7962E-10 > < T**3 ) 3 

K(T) =C 1/36003C3.0239E+01 + < 1 . 0526E-02 > < r > 

- ( 1 .8102E-06) (T**2> + < 1 . 1490E-10) <T**3) 3 

4.1.3 Specific Heat ( BTU/LBe-DEG R) 

CP(T)~3.2070E-02 + ( 4 . 8648E-06 ) ( T ) - ( 3.8201E-13) <T**2 ) 

- <1.0204E~13XT**3> 

CF' < T ) -3 . 9228E-02 + < 4 .8327E-06 > < T > + (3.3457E-09) <T**2 ) 

- <i.?609E~12KT**3> + ( 2 . 2544E- 16 >< T**4 ) 

4.1.4 Thermal Diffusity <FT**2/SEC> 

ALPHA ( 7 ) =2 ♦ 6336E-04 - ( 2 . 4880E-08 > < T ) + ( 1 . 4592E-1 1 > < T**2 ) 

- ( 1.5780E-15) (T**3) 

ALPHA< T ) -~1 . 9764E-04 + <3 . 2121E-08) (T ) - ( 1 .5888E-11 X T**2> 

+ (2.9097E+03) <7**3) 


Ga«* stream parameter* 


Of POOR QUALITY 

4.2.1 Density <LBS/IN**3> 

RHO * 2.6983<P/T) where p * P8IA. T * DEG R 

4.2.2 Thermal Conductivity (BTU/FT-HR-DEG R> 

K(T ) a l • 40203E-02 + ( 1 .899B0E-05) < T > for F/A-.01 

K< T ) *1 . 40413E-02 + < 1 .94294E-05) <T> for F/A-.02 

K ( T > *1 .40422E-02 + ( 1 .98590E-05) <T> for F/A*=.03 

4*2.3 Specific Hast (BTU/LBm-DEG R) 

CP<T )-»2.4733E-01 + (2.78S7E-03) (T> for F/A=.01 

CP(T)*2.4413E-01 + (2.7400E-Q5) <T> for F/A*.02 

CP < T > -2.3937E-01 + ( 2 . 7091E-0S) ( T ) for F/A*.03 

4.2.4 Specific Heat Ratio 

Y < T ) -1 . 3750E+00 - (-3.4000E-05) (T) for F/A«01 

Y ( T > = 1 . 3690E+00 - <-3.4500E-05) <T> for F/A*.02 

Y ( T )=1 . 3630E+00 - < -3 . 5000E-05 > ( T > for F/A=.03 

4.2.5 Vis.cos.ity <LB/FT-SEC> 

MU < T ) *1 ♦ 6100E-05 + ( 9 . 0260E-09 X T > 

4.2.6 Sonic Velocity (FT/SEC) 

C-41 . 4341 SORT C ( Y > ( T > 3 where T* DEG 12 

4.2.7 Kinetic Viscosity <FT**2/SEC> 

SORT ( a )-MU/RHO 

4.2.8 Prandtl Number 
PR~3600(MU5 (CP )/K 

4.2.9 Mean Gas Velocity (FT/SEC) 

U - M ( C > 

4.2.10 Aerodynamic Parameter CFT**(3/2)/8EC3 
GAMMA*C ( . 48) < K > ESGRT ( U ) 3 CPR**< 1.3)1 
GAMMA*GAMMA/t ( 3400 > ( RHOu ) < CPu ) CSQRT ( d) 1 



onoMU.nncii 

, hi, iv won quality 

, , % f '*0 

4,3 Finite Element Solution Coefficient Algorithm* 


4,3,1 

DELTA = L/3 

a 

L-lenith of the 
T/C support wire 

4,3.2 

DELTA-Z* 1/ ( XN2 ) (Fn) 

0 

XH2“the number of 
sammles/cwcler de- 
termined be the 
subroutine *SPCY* 



a 

Fn*the analysis 
f reouencw 

4.3.3 

tc* ' ,s 1/3 

o 

1*1/2 the length 
of the smeller 
T/C wire 

4.3.4 

Cr, * 2< Pi > ( Fn) 



4.3.5 

A^ (11**2 X DELTA >/( 8> ( ALPHA > ( DELAT-t ) 

u 

D=the diameter of 
the support wire 




ALPHA“the T/C 
wire thermal 
dif fusi to 

4,3.6 

B~ ( d** ) (delta) / (8) (ALPHA) (DELTA-Z > 

o 

d~the diameter of 
the smaller wire 

4.3.7 

C* D**2/4( DELTA) 



4.3.8 

E- d*#2/4(delta) 



4.3.9 

F - GAHHA( DEI TA ) CSQRT < D > 3 /2 ( ALPHA) 



4.3.10 

(3^ GAHHA( delta )C5QRT(d>3/2< ALPHA) 



4.3.11 

TR=sir.E(Cr.) (T) 3 

o 

T=T+DELTA-t 
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4.4 Finite Element Solution Algorithm* 

OMQMAL pare r 

4.4.1 ZPO-O Of POOR QUALITY 

4*4.2 ZP1*{C/2A> (Z0+Z2-221 )4Z1 

4.4*3 ZP2“<C/2A) (Z14Z3-2Z2 ) +Z2 

4.4.4 ZP3* (1/2A > CC ( Z24Z4-2Z3 ) +F TR-Z3 13+Z3 

4.4.3 ZP4«<l/2A>tC<Z34Z3-2Z4>42F<TR-Z4)34Z4 

4.4.4 ZP3« (1/2A)CC< Z4+Z4-2ZS ) 42F < TR-Z3 > 3 +Z5 

4.4.7 ZP4«Cl/<A+B)3CC<Z3-Z4)+E(Z7-Z4)4 

4.4.8 ZP7* < 1/28 > CE< Z44Z8-2Z7 ) +20 < TR-Z7 ) 3 +Z7 

4.4.9 ZP8Mi/2BUE<Z7+Z?-2Z8>+2G<TR-Z8>3 + ZR 

4.4.10 ZP9 a < 1/8)CE4Z8-Z7>+0(TR-Z9) 3+Z9 



********** COMMAND FILES FOR HOST PROGRAM OVERLAYS ********** 


***** OVERLAY 4 16 ***** 
90 

A # QVRLYN 
TfSNAPC 
0 » 4020 
6*4021 
0*6022 
§*6023 
H# 4024 
0 » 602 7 
0F 

CSQRT ♦ 

F*%Y6O20 

Y # Y602O 
F#%Y602J 
Y » Y6021 

F»%YA0;2 
Y * f 6022 
F»%Y6023 
V » Y4023 

t 

'» Y6024 
( • 71(6027 
* . 4027 
F.STRFP 
/ • ■ RFF 

Y tXTRFM 
Y.TRrM 
FfRSPCV 
V r SPCY 

f >zxintz 

* * X i N f it 
f .N3^01A 

I'tlCOB 

C.SORT - 

h »N3500A 
!..»** 

F»H3501A 

it** 

F t A3060A 

i. t * * 

It.) * 

0 ) 
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***** OVERLAY * 17 ***** 


m 

A* QVRLYN 
T * SNAPC 
f *> i A 020 
ii . A 02 t ? 
#»A029 
SE 

F »^ VA 020 
V » Y6020 
F.’mASS 

Y * YA028 
F »%YA02° 
Y * Y402.V 
F*XTCOEF 
Y.TCOEF 

F *XTCALC 

Y * T CALC 

F ? N3500A 
L»*« 

F.N3501A 
L > $t 

F » A3060A 

L > 

U»*# 

£ »01 

* * 

* - 

** 


CSORT+ 


ORIGINAL PAQt « 

ahai rrv 




CSORT- 


***** OVERLAY t 18 ***** 


CSORT+ 

CSORT- 
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***** OVERLAY * 19 ***** 

pp 

A.OVRLYN 
T t SNAF'C 
P.6020 
fc? » 6026 
PK 

CSORT+ 

F.XY6020 
Y * Y 6020 
F.XY6026 
Y.Y&026 

CSORT" 

F.N3500A 

L. »** 

F.N3501A 

!..»** 

f .A 30 60 A 
t. »** 

U»** 

F . 0 L 

%$> 

FNLt OF FILE - P, T. PURPURA - 02/01/83 


ORIGINAL PA® J* 
Of POOR QUALITY 


140 






nrirwBL Vw 


ORIGINAL PAGE IS 
OF POOR QUALITY 







ORIGINAL PAGE 13 
OF POOR QUALITY 


ALPHABETICAL INDEX OF KEY DESCRIPTIONS 


This appendix contains an alphabetical index of the key descriptions followed by an 
illustration showing the key exactly as it appears on the front panel of the 5475A Control Unit. 
In addition, the symbol that is printed out for each key is shown. When a key has more than 
one function (e.g., KEYBOARD/PLOT), each is listed separately. 


rjb/e 8-7 Alphabet ml Index 



5451C OPERATING 
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f«W> H. Alph»btOe*l )nd— itww'd) 


My 


Mm*. 


PUT 


Put* 


Rectangular Coordinate* 


Replace 


RtfttATt 




W 


V K> 


QUA IV 

QueMen* Y T * 


TV 


/R 


Subtract* 


Subroutine Return 


Terminate 


Teat* 


T ranker Function 


User Program 
IGoW Key) 


TfX? 


X> 


V A- 


T W 


CH 


Skip 


Skip* 


SKIP 


V IF 


Stop 


V »r t tbit Parameter or Uft Program 


S4S1C OPf RATING 







